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COMPUTER 

In questo numero: 

MSX Basic: 2° 
puntata 
The Biz per 
Spectrum 
Insegnamo le 
frazioni al nostro 
computer 
Tutto sul 
portatile Olivetti 


STRUMENTI MUSICALI 


In questo numero: 

Gibson Flying "V" 

Pianoforti usati 

Pickup per basso elettrico 

Programmare il DX7 con lo Spectrum 


GLOSSARIO D'INFORMATICA 
MUSICALE - 5° fascicolo 


VIDEOGIOCHI In questo numero: 

Speciale due anni dopo: 
cosa ci riserva il 1985? 
Tuttolucky 
Provati in anteprima: 
Ghostbusters e The Biz 



Strumenti Musicali/Video Giochi/Home Computer 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 


Guida per l’input dei programmi versioni VIC 20 e €04 


Notate che i listati contengono ' 'parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [{ )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 
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Jason 


Girasti VIC 20 inespanso 


Jason, una creatura persasi nello spazio e ca¬ 
sualmente atterrata sulla terra, cade in una 
caverna, abitata da mostruose tarantole ne¬ 
re. 

Esse, quando il simpatico Jason si trovava sul 
suo pianeta natale, erano il suo cibo predilet¬ 
to, ed ora, preso dall'entusiasmo, vuole man¬ 
giarseli tutti con la sua bocca rossa e rettan¬ 
golare, e non bada nemmeno alla loro perico¬ 
losità. 

Infatti Jason, man mano che mangia, ha uno 
stomaco nero che si allunga e che è molto vul¬ 


10 REM JASON 
20 GOSUBl200 
30 GOSUBl00 
40 GOSUBl50 
50 GOTO250 
100 PRINT" {CLR}" 

110 READA:IFA=0THENRETURN 
120 POKE7679+A,102 
130 POKE38399+A,0 
140 GOTO! 10 

150 PA=7704:PB=7703:PD=7702 
160 Z(1)=7901:Z(2)=7766 
170 Z(3)=7964 
180 NL=2 

190 POKE36879,184 
200 RETURN 
250 GETA$ 

260 IFA$=""THENA$=B$ 

270 IFA$="A"THENPC=-22 
280 IFA$="A"ANDPEEK(PA-22)=102TH 
ENPC=0 

285 IFA$="A"ANDPEEK(PA-22)=81 THE 
NPC = 0 

290 IFA$ = "Z"THENPC = 22 
300 IFA$="Z"ANDPEEK(PA+22)=102TH 
ENPC=0 

305 IFA$="Z"ANDPEEK(PA+22)=81 THE 
NPC = 0 

310 IFA$=","THENPC=-1 
320 IFA$=","ANDPEEK(PA-1)=102THE 
NPC = 0 

325 IFA$=","ANDPEEK(PA-1)=81 THEN 
PC=0 

330 IFA$="."THENPC=1 
340 IFA$="."ANDPEEK(PA+1)=102THE 
NPC = 0 


nerabile ai morsi delle tarantole. 

Perché non guidarlo nei meandri della caver¬ 
na e aiutarlo a fare un 'indigestione di taran¬ 
tole?!? 

Per fare ciò basta utilizzare i tasti: 

A per muovere Jason verso l'alto: 

Z verso il basso; 

verso sinistra e 
. verso destra. 

E adesso buon divertimento e attenzione a non 
fare.. .indigestione!! 


345 IFA$ = "."ANDPEEK(PA+1 )=81THEN 
PC = 0 

350 B$=A$ 

360 POKEPA,32 

370 POKEPB, 32: IFSO4THENP0KEPD, 3 
2 

380 IFPC=0THEN410 
390 PD=PB:PB=PA 
400 PA=PA+PC 

410 IFPEEK(PA)=42THENGOSUB800 
412 IFPEEK(PB)=42THEN900 
414 IFPEEK(PD)=42THEN900 
418 POKEPA,152 

420 POKEPB, 81 : IFSO4THENP0KEPD, 8 
1 

430 POKE30720+PA,2 

440 POKE30720+PB,6 

450 IFS04THENPOKE30720+PD, 6 

460 PC=0 

470 FORXX=lT03 

475 POKEZ(XX),32 

480 XV=INT(PB/22):XW=INT(Z(XX)/2 

2 ) 

490 IFPB<Z(XX)ANDMV=MWTHENXY=-1 
500 IFPB>Z(XX)ANDMV=MWTHENXY=1 
510 IFXV=XWTHENXZ=0 
520 IFXV<XWTHENXZ=-22 
530 IFXV>XWTHENXZ=22 
540 IFPEEK(Z(XX)+XY+XZ)<>102THEN 
600 

550 ONINT(4*RND(1))+1GOTO560,570 
,580,590 

560 XY=1:XZ=0:GOTO540 
570 XY =-1 : XZ = 0 : GOTO540 
580 XY=0:XZ=22:GOTO540 
590 XY=0:XZ=-22:GOTO540 
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600 IFPEEK(Z(XX)+XY+XZ)=152THENG 
OSUB800 

610 IFPEEK(Z(XX)+XY+XZ)=81THENGO 
TO900 

620 Z(XX)=Z(XX)+XY+XZ 

630 POKEZ(XX),42 

640 POKE30720+Z(XX),0 

650 IFRND(1)>.9THENG0T0475 

660 XY=0:XZ=0:NEXTXX 

670 GOTO250 

800 SC=SC+1 

810 IFPEEK(Z(1)+XY+XZ)=152THENZ( 

1) =7901 

820 IFPEEK(Z(2)+XY+XZ)=152THENZ( 

2) =7766 

830 IFPEEK(Z(3)+XY+XZ)=152THENZ( 

3) =7964 

840 IFPA=Z(1)THENZ(1)=7901 
850 IFPA=Z(2)THENZ(2)= 7766 
860 IFPA=Z(3)THENZ(3)=7964 
870 XY=0:XZ=0:RETURN 
900 POKE36879,8 
910 PRINT"{CLR}" 

920 FORJ=lT05 

930 PRINTTAB(4)"{RVS}{WHT} HAI P 
ERSO!!{GIU 1 }" 

940 POKE36878,15 
950 POKE36876,220 
960 FORTD = 1TO10 :NEXTTD 
970 POKE36878,0 
980 NEXTJ 

990 PRINTTAB(6)"{ 2 GIU'JPUNTI:" 
; SO 

991 PRINTTAB(6)"{ 2 GIU'}ANCORA 
?" 

992 GETY$:IFY$=""THEN992 

993 IFY$="S"THENRUN 

994 IFY$="N"THENEND 

995 GOTO992 

1000 DATAI,2,3,4,5,6,7,8,9,10,11 
,12,13,14,15,16,17,18,19,20 
,21,22 

1010 DATA23,44,45,47,48,49,50,51 
,52,59,60,61,62,63,64,66,67 
,69,86,88,89,91,108,110 
1020 DATA 111,113,116,117,118,12 
5,126,127,130,132,133,135,1 
38,149,152,154,155,157 
1030 DATA160,165,166,171,174,176 

,177,179,182,187,188,193,19 
6,198,199,201,204,209,210 
1040 DATA215,218,220,221,231,232 
,242,243,253,254,264,265,27 
5,276,286,287,289,292,297 
1 050 DATA298,303,306,308,309,31 1 
,314,319,320,325,328,330,33 
1,333,336,341,342,347,350 
1060 DATA352,353,355,358,369,372 
,374,375,377,380,381,382,38 
9,390,391,394,396,397,399 
1070 DATA416,418,419,421,438,440 
,441,443,444,445,446,447,44 


8,455,456,457,458,459,460 
1080 DATA462,463,484,485,486,487 
,488,489,490,491,492,493,49 
4,495,496,497,498,499,500 
1090 DATA501,502,503,504,505,506 
,0 

1 200 POKE36879,8 

1210 PRINT"{CLR}{ 7 GIU'}" 

1220 PRINT"{WHT}{RVS}{ 3 SPAZI} 
{OFF} {RVS}{ 3 SPAZI}{OFF} 

{RVS}{ 3 SPAZI}{OFF} {RVS} 

{ 3 SPAZI}{OFF}' {RVS} {OFF} 
{RVS} {WHT}" 

1230 PRINT"{ 2 SPAZI}{RVS} {OFF} 
{RVS} {OFF} {RVS} {OFF} 
{RVS} {OFF}{ 3 SPAZI}{RVS} 
{OFF} {RVS} {OFF} {RVS} 

[<*>] {WHT}" 

1240 PRINT"{ 2 SPAZI}{RVS} {OFF} 
{RVS}{ 3 SPAZI}{OFF} {RVS} 
{ 3 SPAZI}{OFF} {RVS} {OFF} 
{RVS} {OFF} {RVS} 

{ 3 SPAZI}{WHT}" 

1250 PRINT"{ 2 SPAZI}{RVS} {OFF} 
{RVS} {OFF} {RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF} {RVS} 
{OFF} {RVS} {OFF} {RVS} 
{OFF}[<*>]{RVS} " 

1260 PRINT"{RVS}{ 2 SPAZI}{OFF} 

£ {RVS} {OFF} {RVS} {OFF} 
TRVS}{ 3 SPAZI}{OFF} {RVS} 

{ 3 SPAZI}{OFF} {RVS} {OFF} 
{RVS} {OFF} {RVS}" 

1270 POKE36878,15 
1280 SV=0 

1290 POKE36875,127+SV 
1300 POKE36876,255-SV 
1310 SV=SV+5 
1320 IFSV<120THEN1290 
1330 POKE36878,0 

1 340 SV=0:FORTD = lTOl000 :NEXT:RET 
URN 
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Preset 11 


Se possiedi un VIC 20 e hai qualche amico con 
il C64, probabilmente ti sarà capitato di senti¬ 
re invidia verso di lui. Uno dei motivi che può 
provocarla è senz'altro la maggiore capacità 
di sintesi musicale del fratello ' ‘maggiore ' ' del 
tuo VIC. Ma noi ti offriamo con questo pro¬ 
gramma la possibilità di rifarti: avrai a disposi¬ 
zione una tastiera musicale con 20 (sottolineo 
20!) timbriche preselezionate diverse: dal pia¬ 
no al basso, dal clavicembalo all'organo e molte 
altre. 

Il programma è semplicissimo da usare: per se¬ 
lezionare i vari strumenti basta premere il ta¬ 
sto corrispondente alla cifra indicata nella 
schermata-menu, premendo contemporanea¬ 


5 S1=36874:S2=S1+1:S3=S2+1:S4=S3 
+ 1 :V=S4+1:PRINTCHR$(8) 

10 POKE36879,1 4:PRINTCHR$(147) :F 
ORT=7680TO79 43:POKET+30720,6 : 
POKET,160:NEXT 

15 PRINTCHR?(31);CHR$(18); 

20 PRINTSPC(6)"PRESETI 2 SPAZI} 

2 2":FORT=OTO!0 :PRINT:NEXT:PRI 
NTCHR?(158)"TASTIERA MUSICALE 
{ 2 SPAZI}PER" 

30 PRINT"{ 3 SPAZI{COMMODORE VIC 
20 { 3 SPAZI}"-.PRINT" 20 TIPI 
DI INVILUPPO " 

40 PRINT"{ 2 SPAZI}SUONI SEMPRE 
SOTTO{ 2 SPAZI}":PRINT” 

{ 2 SPAZI{STRETTO CONTROLLO 
{ 2 SPAZI}" 

50 DIMSU$(1,9),A%(0),SC(0),NO%(5 
2),V%(1,9,39),N%(0),Z%(0),C%( 
0) ,B%(0) ,M%(0) 

60 FORJ=0TO1:FORT=0TO9:READSU?(J 
,T):NEXTT,J:FORT=0TO52:READNO 
%(T):NEXT 

70 FORN = OTO1 :FORT=1T09:FORJ = 0TO3 
9 :READV%(N,T,J) : IFN=1ANDT>3TH 
ENV%(N,T,J)=V%(N,T,J)+1 

75 NEXTJ,T,N 

90 V%(0,0,0)=9:V%(1,0,0)=9:FORT= 
1T039:V%(0,0,T)=0:V%(1 ,0,T)=1 
:NEXTT 

100 C%(0)=0:B%(0)=0:GOSUB800:GOS 
UB850 


mente anche SHIFT per quelli indicati nella co¬ 
lonna a destra. 

I tasti che puoi usare per suonare le tue melo¬ 
die preferite sono situati nella prima e nella se¬ 
conda riga della tastiera del tuo VIC 20: preci¬ 
samente dal tasto I (Do diesis) al tasto T (SI). 
Puoi inoltre modificare i suoni preselezionati ac¬ 
cendendo e spegnendo i singoli generatori con 
i tasti COMMODORE, SHIFT e CTRL: precisa- 
mente SHIFT per il generatore di frequenza 
bassa, COMMODORE per il generatore medio, 
SHIFT+COMMODORE per il generatore alto 
e CTRL per il rumore bianco. Per finire, speci¬ 
fichiamo che il programma funziona anche con 
la Super Espansione. Buon concerto! 


200 POKE36879,1 1 :PRINTCHR$(14 7); 
CHR$(159);CHR$(18);"U 
{ 20 *}l"; 

210 PRINT'^I 7 SPAZI}PRESETS 
{ 6 SPAZI}-_" ;: PRINT" J 
{ 20 *}K"; 

220 PRINT"{ 22 SPAZI}";:PRINT" 

{ 5 SPAZI}";CHR$(146);SPC(12 
);CHR$(18);"SHIFT" 

225 PRINT:PRINTCHR?(5) 

230 FORT=1T09:PRINTSU$(0,T);CHR$ 
(158);T;CHR$(5);SU$(1,T):NEX 
T 

235 PRINTSU?(0,0);CHR$(158);" 0 
"; :PRINTSUS(1,0) 

240 D% = PEEK(6 53) :GETA$: IFA$ = ""TH 
EN240 

250 SC% (0)=ASC(A$)-48:IFD% = 1THEN 
SC%(0)=ASC(A$)-32 
255 IFD%=1ANDSC%(0)=16THENSCI(0) 
= 0 

260 IFSC%(0)< 0ORSC%(0)> 9THEN24 0 
290 IFD%>1THEND%=0 
390 POKE36879,8:PRINTCHR$(147);C 
HR$(5);CHR$(18); 

400 POKE36879,8 : PRINT" { 22 _*}";: 

PRINT"{ 22 SPAZI}"; 

410 PRINT" { 22 M" :PRINTCHR$ (1 9) 

;CHR$(17);CHR$(18);SPC(6)SU$ 
(D%,SC%(0)) 
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420 PRINTSPC (12) "U { 8 *}:T';:PRIN 
TSPC(12)"-REGISTRI-"; :PRINTS 
PC(12)"-{ 8 SPAZI }-_" ; 

430 PRINTSPC (1 2) "_-"CHR$ (1 8) " 

{ 8 SPAZI}"; CHR$ (14 6) ; "; : P 
RINT"{ 2 SPAZI}U{ 9 MjC 
{ 8 SPAZI }-" ; 

435 PRINT"{ 2 SPAZI}-_"CHR$(158)" 
SHIFT"CHR$(159)"CMDR"CHR$(31 
)"SH+CM"CHR$(30)"CTRL"CHR$(5 
) 

440 PRINT"{ 2 SPAZI}j{ 9 *}I"CHR 
$ (1 58) ;CHR$ (1 8) ;" "CHR$(146) 
" "CHR$^159); 

445 PRINTCHR$(18)" "CHR$(146)" 

{ 2 SPAZI}"CHR$(31 ) ;CHR$(18) 
" "CHR$(146)" "CHR$(30);CHR$ 
( 18 )" "; 

447 PRINTCHR?(146);CHR$(5);"- "; 

:PRINTSPC(11)"J{ 8 Mk":PRIN 
T 

450 PRINTSPC(4);CHR$(31);"## ### 
## ###":PRINTCHR$(18);CHR$( 
5)"{ 4 SPAZI}12 456 89 +-£ 

{ 5 SPAZI}"; 

455 PRINT"{ 4 SPAZI}[< 2 K>] 

[< 3 K>] [< 2 K>] [< 3 K>] 

{ 5 SPAZI}"; 

460 PRINT"{ 4 SPAZI}{ 14 -} 

{ 4 SPAZI}";:PRINT" 

{ 4 SPAZI}(<Z>)[< 12 E>] 

[<X>]{ 4 SPAZI}"; 

465 PRINT"{ 5 SPAZI}QWERTYUIOP@* 
t{ 4 SPAZI}";CHR$(146); 

470 PRINTSPC(5);CHR$ (31) ;"DEFGAB 
CDEFGAB"CHR$(5) 

475 PRINTCHR$(19):PRINTCHR$(18); 
CHR$(17);"- "CHR$(146);"MENU 
:A%(0)=40 

480 IF Z %(0)=1 THE NPO KE 7847,1 77 

485 IFC%(0)=1THENPOKE7849,178 

490 IFB%(0) =1THENPOKE7852,1 79 

495 IFM%(0)=1THENPOKE7854,1 80 

500 IFA%(0)<40THENPOKEV,V%(D%,SC 
%(0) ,A%(0)) :A%(0)=A% (0) +1 

505 ONPEEK(653)GOSUB750,800,850, 
900 

510 GETA$: IFA$<>""THEN540 

530 GOTO500 

540 N%(0)=ASC(A$)-42:IFN%(0)<0OR 
N% (0)>53THEN500 

550 IFN%(0)=53THENPOKEV,0 : GOTO20 
0 

560 POKES1 ,PEEK(SI)ANDl280RNO%(N 
%(0)) :POKES2,PEEK(S 2)ANDl 280 
RNO%(N% (0)) 

570 POKES3,PEEK(S3)ANDl 280RNO%(N 
%(0)):POKES4,PEEK(S 4)ANDl280 
RNO%(N%(0)) 

580 POKEV, V%(D%,SC% (0) ,0) :A%(0) = 
1 : GOTO 500 


750 IFZ%(0)=1THENZ%(0)=0 :POKE784 
7,160:POKES!,PEEK(Si)ANDl27: 
GOTO770 

760 IFZ%(0)=0THENZ%(0)=1 :POKE784 
7,177:POKES1,PEEK(Si)ORI 28 
770 RETURN 

800 IFC%(0)=1THENC%(0)=0 :POKE784 
9,160:POKES2,PEEK(S2)ANDl27: 
GOTO820 

810 IFC%(0)=0THENC %(0)=1 :POKE784 
9,178:POKES2,PEEK(S2)ORI 2 8 
820 RETURN 

850 IFB%(0)=1THENB%(0)=0 :POKE785 
2,160:POKES3,PEEK(S3)ANDl27: 
GOTO870 

860 IFB%(0)=0THENB%(0)=1 :POKE78 5 
2,179:POKES3,PEEK(S3JORI 2 8 
870 RETURN 

900 IFM%(0)=1THENM%(0)=0 :POKE78 5 
4,160:POKES4,PEEK(S4)ANDl27 : 
GOTO920 

910 IFM%(0)=0THENM%(0)=1:POKE785 
4,180:POKES4,PEEK(S4)ORI 28 
920 RETURN 

6000 DATA"{ 2 SPAZI}PERCUSS."," 
PICCO QUA"," PICCO PCS" 

6010 DATA"{ 3 SPAZI}HARPSI."," 

{ 2 SPAZI}HARPSI V"," 

{ 5 SPAZI}BASSO" 

6020 DATA"{ 5 SPAZI}PIANO"," 

{ 2 SPAZI}PIANO EL"," 

{ 3 SPAZI}DISCESA" 

6030 DATA"{ 2 SPAZI}DOUBLE P","P 
ERC.SUS","PICCO S ","SOFFIO 
{ 2 SPAZI}" 

6040 DATA"SOFFIO S","FL.AND. "," 
PICCO SS" 

6050 DATA"ORGANO{ 2 SPAZI}","ORG 
E+VB","SHUT{ 4 SPAZI}","TA 
VOLO{ 2 SPAZI}" 

7000 DATA88,80,,85,,,,3,15,,33,4 

3.53.. 65.71..., 

7010 DATA,,83,,,,,28,,,,68,,,,,, 
74,77,9 

7020 DATA39,,49,61,,22,,57,,,90, 
,92 

8000 DATA,,1,1,2,2,3,3,4,4,4,5,5 
,6,6,7,7,8,8,9,9,8,8,7,7,6, 

6.5.5.4.4.4.3.3.2.2.1.1., 
8010 DATA9,,1,1,2,2,3,3,4,4,4,5, 

5,6,6,7,7,8,8,9,9,8,8,7,7,6 
,6,5,5,4,4,4,3,3,2,2,1,1 ,, 
8020 DATA9,9,9,9,9,9,9,9,8,8,8,7 
,7,7,6,6,6,5,5,5,4,4,4,3,3, 

3.2.2.2.2.2.2.2.2.2.2.1.1.1 

8030 DATA9,9,8,9,8,9,8,9,8,7,8,7 
,6,7,6,5,6,5,4,5,4,3,4,3,2, 

3.2.1.2.1.2.1.2.1 ,2,1 ,1 ,,1 , 

8040 DATA9,1,3,5,8,10,11,12,13,1 

4.15.15.15.15.15.15.14.14.1 

3.13.12.12.9.9.6.6.2.2.1 ,, 
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8 04 5 DATA 99999999 

8050 DATATI,9,7,6,5,5,4,4,4,3,3, 
3,2,2,2,2,1 f 1 ,1 fi fi fi ,,,,,, 

8060 DATAI 1'l'Ó,'9^8,7,6,5,4,4,3,3 

, 2 , 2,1 , 1,1 fff/9999999999999 

8070 DATA9,9,9,9,8,8,8,8,7,6,5,4 
, 3 , 2 , 2 , 2 , 2,1 

9 9 9 9 9 9 9 

8080 DATA3,6,9,3,6,9,3,6,9,,,,,, 


8090 DATAI ,2,3,4,5,6,7,8,9,8,7,6 
,5,4,3,2,1 ,,,,,,,,,,,,,,,,, 

8100 DATAI ! 2,3,7,9,5,5,5,5,5,5,4 
,4,4,4,4,3,3,3,3,2,2,2,1 ,1 , 

99999119999999 


8110 DATAI,2,3,7,9,9,7,3,2,1 ,1 ,, 

999999999999999999999999999 

8120 DATA3,8,6,4,2,1,,,,,,,,,,,, 

9999999999999999999999 

8130 DATA,,,1,1,3,4,8,4,3,1,1 ,,, 

999999999999999999999999 

8140 DATA8,8,8,8,8,8,8,8,8,8,8,8 
,8,8,8,8,8,8,8,8,8,8,8,8,8, 
8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8 , 8,8 
r 

8150 DATA8,6,8,6,8,6,8,6,8,6,8,6 
,8,6,8,6,8,6,8,6,8,6,8,6,8, 
6,8,6,8,6,8,8,9,10,8,6,2,1 , 

8160 DATA2,5,8,,,,,,,,,,,,,,,,,, 

rrrrr/,,,,,,, ,,,,,, 

8170 DATA,,,,,,8,8,8,8,8,8,,,,,, 


Seguimi! 



Questo è un gioco molto semplice che può di¬ 
vertirvi e ol tempo stesso esercitate la vostra 
memoria. Il computer suona una serie di no¬ 
te, e a ogni nota cambia il colore dello scher¬ 
mo. I colori possibili (e le note corrispondenti) 
sono quattro: porpora, verde, blu e giallo. 
Ciò che dovete fare è ripetere la sequenza crea¬ 
ta dal computer, premendo i tasti corrispon¬ 
denti ai colori (5-Ó-7-8) nell'ordine esatto. 

Il gioco prevede 9 livelli di difficoltà. A qualsiasi 
livello, comunque, la sequenza inizia con un 
colore solo, e ad ogni turno viene prolungata 
aggiungendo un nuovo colore (e una nuova no¬ 
ta). Al livello I il gioco termina quando viene 
raggiunta una lunghezza di 5 note, al livello 


20 C=36879 
30 POKEC,25 

40 PRINT"{CLR}{BLK}{GIU'}{RVSj 
{ 6 DES} SEGUIMI! " 

50 : 

60 DIMN(45) 

70 FORI = 1T045 


2 di IO note, e così via fino al livello 9 in cui 
la sequenza finale comprende 45 note. 
Mentre genera le sequenze, il computer mo¬ 
stra sullo schermo una linea che si prolunga 
ed un pallino: quando la linea raggiungerà il 
pallino sarete all'ultima sequenza. Durante il 
vostro turno ricordatevi che avete solo dieci se¬ 
condi a disposizione per iniziare a battere i ta¬ 
sti giusti, e che non dovete superare tale limite 
di tempo neanche tra due battute successive. 
Vincete se riuscite a ripetere tutte le sequenze 
senza commettere errori; se invece sbagliate 
o perdete troppo tempo il gioco viene interrot¬ 
to. 


80 N ( I)=INT(4 *RND(0)+1) 

90 NEXT 

100 POKE3687 8,1 5 
110 S = 36875 
120 BS = 59 

130 PRINT"{ 3 GIU'}{BLU}USA SOLO 
QUESTI TASTI:" 


IO 














140 PRINT"{GIU'}{ULK} 5 = (RVS} 
{PUR}PUR{0FF}{BLK} (PORPORA) 

II 

150 PRINT"{GIU’} 6 = {RVS}{GRN}G 
RN{OFF}{BLK } (VERDE)" 

160 PRINT"(GIU'} 7 = lRVS}{BLU}B 
LU{OFF}{BLK} (BLU)" 

170 PRINT"{GIU'} 8 = {RVS}{YEL)Y 
EL{OFF}{BLK} (GIALLO)" 

180 PRINT"{ 2 GIU' }{BLUJDIFFICOL 
TA' (1-9)?" 

190 GETC$ 

200 L=VAL(C$) 

210 IFL<10RL>9THENl90 

220 PRINT"{ 2 GIU'}{DES}{RVS} 

{RED}RETURN{BLU} PER INIZIAR 
E{BLK}" 

230 GETC$:IFC$<>CHR$(13)THEN230 
240 K=0 
250 K=K+1 

2 bO PRINT"{CLR} FAI ATTENZIONE 
{GIU'}":FORT=1TO500:NEXT 
270 PRINTTAB(L*5)"Q{HOME} 

{ 2 GIU'}"; 

300 FORI=lTOK 
310 W=N(I) 

315 PRINT"C"; 

320 GOSUB600 

330 NEXT 

340 POKEC,25 

350 GOSUB800 

360 IFK<L* 5THEN2 50 

400 PRINT"{CLR}{RVS}{RED} 

{ 2 GIU 1 }{ 4 DES} HAI VINTO 
AL " 

410 POKE36879,30 :PRINT"{RVS} 
fGIU 1 ] { 6 DES}LIVELLO "L 


415 PRINT"{RVS}{ 2 GIU'} 

{ 4 DES} PUNTEGGIO: "K 
420 PRINT"{BLK}{ 2 GIU'jGIOCHI A 
NCORA (S/N)?" 

430 GETA$:IFA$="S"THENRUN 
440 IFA$="N"THENPRINT"{ 2 GIU'} 
CIAO CIAO!{ 2 GIU'}": END 
450 GOTO430 
600 : 

610 Z=17*W 
620 POKEC/BS+Z 
630 POKES,Z+160 
640 FORT=1TO700:NEXT 
650 POKES,0 
660 FORT=1TO400:NEXT 
670 RETURN 
800 : 

805 PRINT"{CLR} TOCCA A TE" 

810 FORI=1TOK 
815 V=0 
820 GETR$ 

825 V=V+1:IFV>450THENPRINT" 

{ 2 GIU'}{RVS} IL TEMPO E' S 
CADUTO ":FORT=lTO2000:NEXT:G 
OTOl000 

830 W=VAL(RS)-4 

840 IFW<1ORW> 4THEN820 

850 GOSUB600 

860 IFW< >N(I)THENl000 

870 NEXT 

880 RETURN 

1000 PRINT"{CLR}{BLK}{DES}{RVS} 
TI E' ANDATA MALE " 

1010 PRINT"{GIU 1 }{RVS}{ 4 DES}AL 
LIVELLO"L 

1020 PRINT"{ 2 GIU'}{ 4 DES}PUNT 
EGGIO:"K-l 
1030 GOTO420 


CIÒ— plus/4 

Quindici 


Questo e un gioco che ero molto popolare ne¬ 
gli anni Sessanta, ed è un po' l'antenato del 
cubo di Rubik. La versione originale (vale a di¬ 
re non computerizzata) era costituita da una 
tavoletta di plastica quadrata che conteneva 
15 caselline numerate, che potevano essere 
spostate orizzontalmente e verticalmente. Sco¬ 
po del gioco era, partendo da una configura¬ 
zione casuale delle caselline, risistemarle in or¬ 
dine numerico. 

I problemi principali che si ponevano per chi 


giocava erano: I) la notevole resistenza che 
spesso opponevano le caselline ad essere spo¬ 
state; 2) la difficoltà di risoluzione del gioco. 
Ma questo programma per il Ciò ti permette¬ 
rà di evitare completamente il primo proble¬ 
ma affidandolo totalmente alle capacità del tuo 
computer, per dedicarti esclusivamente al se¬ 
condo. Le semplicissime istruzioni per giocare 
a QUINDICI ti verranno mostrate direttamen¬ 
te dal tuo Ciò. Buona fortuna! 


Il 











10 COLORO,2:COLOR4,2:VOL8 
20 DIMN(3,3):DIMNZ$(15) 

30 X=0:Y=0:C2$ = "":C 3$ = "" 

40 TP$ = "{ 17 C}":S$="B{GIU'} 

{SIN}B{GIU'}{SIN}bTgIU’}{SIN} 
B{GIU'}{SIN}B{GIU'}{SIN}B 
Tgiu'}{sinJbTgiu 1 }{SIN}B 
{GIU 1 }{SIN}B{GIU'}{SIN}B 

{giu '}{sin}b{giu'}(sin}b 

{GIU'}{SIN}B{GIU'}{SIN}B 
{GIU'}{SIN}B{GIU'}{SIN}B 
{GIU 1 } {SIN}B{GIU'}{SIN}" 

50 CX$="{ 5 SPAZI}{GIU'}{SIN} 
{GIU'HSIN} {GIU'}{SIN} 

{GIU 1 } {SIN} { 2 SIN} 

{ 2 SIN} { 2 SIN} { 2 SIN} 

{ SU } {SIN } { SU } {sin} {suHsin} 

•I 

60 CD$="{HOME}{ 4 GIU'}":CR$=" 

{ 10 DES}":CS$="U{ 3 *}I 
{GIU'}{SIN}B{GIU'}(SIN}B 
{GIU'}{SIN}B{GIU'}{SIN}K 
{ 2 SIN}M 2 SIN}*{ 2 SIN}* 

{ 2 SIN}J{SU}{SINTBiSU}{SIN} 

B{SU}{SIN}B" 

70 BU$="{HOMET{ 6 GIU’}":BR$=" 

{ 12 DES}" 

80 COLORI,3,3:PRINT"{CLR}{GIÙ 1 } 

{ 8 DES}{BLK}{RVS} Q {RED} U 
{CYN} I {PUR} N {GRN} D {BLU} 

I [<1>] C [<2>] I " 

110 COLORI ,9,4 :PRINT"{ 3 GIU'} 

{ 14 DES}ISTRUZIONI" 

120 PRINT"{ 2 GIU'}{ 8 DES}’I’ 

{ 4 SPAZIJCURSORE A SINISTRA 

II 

130 PRINT"{GIU'}{ 8 DES}'P' 

{ 4 SPAZI{CURSORE A DESTRA" 
140 PRINT"{GIU'}{ 8 DES}'Q’ 

{ 4 SPAZI}CURSORE IN SU" 

150 PRINT"{GIU’}{ 8 DES}'Z' 

{ 4 SPAZI}CURSORE IN GIU'" 
160 PRINT"{ 2 GIU'}{ 6 DES}SPAZI 
0{ 3 SPAZI}PER MUOVERE" 

170 PRINT"{ 3 GIU'}{ 7 DES}PREMI 
RETURN PER INIZIARE" 

180 GETA$:IFASC(A$)<>13THEN1 80 

190 NZ$(0)="{WHT}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 

{ 3 SPAZI}{GIU' } { 3 SIN} 

{ 3 SPAZI}" 

200 NZ$(1)="{BLK}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 1 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

210 NZ$(2)="{RED}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 2 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

220 NZ$(3)="{CYN}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 3 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 


230 NZ$(4)="{PUR}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 4 
{GIU 1 }{ 3 SIN}{ 3 SPAZI}" 

240 NZ$(5)="{GRN}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 5 
{GIU'}{ 3 SIN){ 3 SPAZI}" 

250 NZ$(6)="{BLU}{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 6 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

260 NZ$(7)="[<8>]{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 7 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

270 NZ$(8)=" [<1>} {RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 8 
{GIU'}{ 3 SIN} { 3 SPAZI}" 

280 NZ$(9)="[<2>]{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN} 9 
{GIU'H 3 SIN} { 3 SPAZI}" 

290 NZ$(10)="[<3>]{RVS} 

{ 3 SPAZIHGIU' }{ 3 SIN } 1 0 
{GIU'}( 3 SIN}{ 3 SPAZI}" 

300 NZ$(11)="[<4>]{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN}11 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

310 NZ$(12)="[<5>]{RVS} 

{ 3 SPAZI){GIU'}{ 3 SIN}12 
{GIU'}{ 3 SIN } { 3 SPAZI}" 

320 NZ:?(1 3) =" [<6>] {RVS } 

{ 3 SPAZI}{GIU'}{ 3 SIN}13 
{GIU'}{ 3 SIN}{ 3 SPAZI}" 

330 NZ$(14)="[<7>]{RVS} 

{ 3 SPAZI}{GIU'} { 3 SIN}14 
{GIU*}{ 3 SIN}{ 3 SPAZI}" 

340 NZ$(15)="I<8>]{RVS} 

{ 3 SPAZI}{GIU'}{ 3 SIN}15 
{GIU' }{ 3 SIN} { 3 SPAZI}" 

350 FORI=0TO3:FORJ=0TO3:N ( I,J)=1 
*4+J:NEXTJ,I 

360 PRINT"{CLR}{GIU'}{ 15 DES}QU 
INDICI !":GOSUB550 
370 Xl=0:Yl=0:X = 0:Y=0:Z = 20 + 1NT(R 
ND(0)*25) 

380 FORJ=1TOZ:X=INT(RND(0)*4):GO 
SUB620:Y=INT(RND(0)*4):GOSUB 
6 20 :NEXT 

390 COLORI,3,3 :PRINTCDS;CR$;" 
{DES}{GIU 1 }";C2$;C3$;CS$;" 
{HOME}":X=0:Y=0 

400 GETAS: IFA$< >" "ANDA$< >"P"AND 
A$<>"I"ANDA$< >"Q"ANDA$< >"Z"T 
HEN400 

410 IFA$ = " "AND(XI=XORYl=Y)THENG 
OSUB620:GOTO400 

420 PRINTCD$;CR$;"{GIU’}{DES}";C 
2$;C3$;CX$ 

430 IFASO" "THENSOUNDl ,400,7 
440 IFA$="P"THENX=X+1:C2$=C2$+" 

{ 4 DES}":IFX>3THENX=0:C2$=" 

II 

450 IFA$< >"I"THEN480 
460 X=X-1:IFX>=0THENC2$=LEFT$(C2 
$,X*4) : GOTO520 
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470 X=3:C2$="{ 12 DES}": GOTO520 
480 IFA$<>"Q"THEN510 
490 Y = Y-1:IFY>=0THENC3$=LEFT$(C3 
$,Y*4):GOTO520 
500 Y = 3:C3$="{ 12 GIU’ }" 

510 IFA$ = "Z"THENY=Y+1 :C3$=C3$+" 

{ 4 GIU'}":IFY>3THENY=0:C3$= 

Il II 

520 COLORI,3,3 :PRINTCD?;CR$; " 
{GIU 1 }{DES}";C2$;C3$;CS$ 

530 GOTO4G0 
540 END 

5 50 COLORI,1 :PRINTCD$;CR$;"U";TP 
$;"I{GIU'}{SIN}";S$; 

560 PRINTCD$;CR$;"{GIU 1 }";S$;"J 
";TP$; "K" ; 

570 PRINTCD$;"{ 4 GIU'}"; 

580 FORI=0TO3:PRINTCR?;" 

{ 2 DES}";:FORJ=0TO3 
590 PRINT"{ 2 SU } ";NZ$(I * 4+J) ;" 

{OFF} ";:N(I,J)=I*4+J 
600 NEXTJ:PRINT:PRINT:PRINT:PRIN 
T:NEXTI 
610 RETURN 

620 IFX1=XANDY1=YTHENRETURN 


630 IFY<YlTHENFORI=Y1-lTOYSTEP-1 
:N(1+1,X)=N(I,X):GOSUB680:Yl 
=Y:NEXT 

640 IFY>Y1THENFORI=Y1+1TOY:N(I-1 
,X)=N(I,X):GOSUB690:NEXT:Y1= 
Y:RETURN 

650 IFX<XlTHENFORI=Xl-1TOXSTEP-1 
:N(Y,1 +1)=N(Y,I) :GOSUB710 : NE 
XT:X1=X:RETURN 

660 IFX>X1THENFORI=Xl+1TOX:N(Y,I 
-1)=N(Y,I):GOSUB720:NEXT:XI= 
X:RETURN 

670 PRINTBD$;BRS;NZ$(0):COLORl,1 
: RETURN 

680 Z$=BD$:BD$=LEFT$(BD$,1*4+7): 
GOTO700 

690 Z$=BD$:BD$=BD$+"{ 4 GIU'}" 

700 SOUND1,1000-5*1,2:GOSUB670:P 
RINTZ$;BR$;NZ$(N(I,X)) : RETUR 
N 

710 Z$=BR$:BR$=LEFT$(BR$,I*4+12) 
:GOTO730 

720 Z$=BR$:BR$=BR$+"{ 4 DES}" 

730 SOUNDl,970+5*1,2:GOSUB670:PR 
INTBD$;Z$;NZ$(N(Y,I)) : RETURN 


Blitz 



Volate su un piccolo piper armato solamente 
con delle bombe, ed una potenza straniera vi 
ha affidato il compito di bombardare e distrug¬ 
gere Manhattan. Dopo ogni passaggio sulla cit¬ 
tà perdete un po' di quota, ed i grattaceli so¬ 


1 PRINTCHRS(147):DIMSC(10):DIMSC 

5 ( 10 ) 

2 VO=54296:WA=54276:AT=54277:HI= 
54273:LO=54272:SU=54278 

4 D=0:G = 0:CO=11 :HS = 0:LA=0:SC=0:V 
C=53248 

6 FORX=1TOl0 :SC(X)= 0 :SC$(X)=" 
{GRN}* {GRN}BLITZ{GRN} *":NEXT 
8 A$="{HOME}{ 24 GIU'}" 

10 B$="{ 39 DES}" 

12 C$="{BLK}{8LU}{CYN}{PUR}{GRN} 
{BLU}{YEL} {<1>] [<7>] {CYN} 

[<3>] [<4>] { < 5'> ] [ <6> ] [ <7> ] 

l<8>] " 


no estremamente alti... Ce la farete a radere 
al suolo tutti i palazzi dell'isola? Si può giocare 
con un joystic nella porta 2, oppure da tastie¬ 
ra premendo la barra spaziatrice per sgancia¬ 
re le bombe. 


14 POKEVC + 32,0 :POKEVC + 33,0 :1FG = 0 
THENGOSUBl000 

15 GOSUB2000 

16 PRINTCHR$(147) :POKEVC + 32,1 : PO 
KEVC + 33,1 :POKEVC + 2 4,(PEEK(VC + 
24)AND240)OR14 :POKEVC + 31,0 

17 REM * * * * SETTA LO SCHERMO***** 

18 PRINT"{HOME}{GRN}{ 3 DES}PUNT 
I"SC,"{DES}MAX.PUNTEGGIO"HS 

20 FORZ=lT038:PRINTLEFTS(A$,24)R 
IGHT$(B$,Z)"{GRN}{RVS}E{OFF}" 
: NEXT 
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22 FORX=3T036:FORY=OTOINT(RND(1) 

* ( 14 *SK)+1) 

24 PRINTLEFT$( A$ , 2 3-Y)RIGHT$(B$, 
X)MID$(C$,(X-2AND15)+l,1)" 

{RVS}A{SU}{SIN}@{OFF}":NEXTY, 
X 

2 6 IFPY> 4 5THEN30 

28 PX=0:PY = 45 :BS = ì 6 

30 X=PX:Y=PY 

32 POKEVC + 2 , XAND 2 5 5 : POKEVC+ 3 , Y : P 
OKEVOl 6 , INT (X/2 56 ) * 2 : POKEVC+ 
21 ,2 

34 POKEVO,1 :POKEAT,255:POKESU,25 
5 :POKEWA,12 8:POKELO,0 :POKEH1, 
19 

35 REM* * *LOOP PRINCIPALE*** 

36 IFX<4THEMDX=SP:Y=Y+8:POKE2041 
,192 

38 IFX< 2 56THENPOKEVC + 16,PEEK(VC + 
16)AND253 

40 IFX> 2 55THENPOKEVC + 16,PEEK( VC + 

1 6 ) OR 2 

4 2 IFX>343THENDX = -SP:Y = Y+ 8 :POKE2 
041,193 

44 POKEVC+2,XAND255:POKEVC+3,Y:P 
OKEWA,129 

46 PRINT"{HOME){GRN) M TAB(8)SCTAB 
(34)HS 

48 IF(PEEK(VC+31)AND2)-2THENPOKE 
WA,128 : GOTO700 

50 IFX< BSTHEN 54 

51 BS=BS+DX: IFSP = 4THENBS-BS + DX 

52 IFX>8ANDX<336ANDPEEK(KEY)=KlA 
NDD=0THENGOSUB500 

54 IFD> 0THENGOSUB60 0 :G0T056 

55 FORT=1TOSP*10 :NEXT 

56 POKEWA,128 

50 IFX>296ANDY=213THEN62 

60 X=X+DX:GOTO36 

61 REM**** DISCESA **** 

62 FORT®1T05 

64 POKEl 936,1 31 :FORTT=lTO250:NEX 
T:POKEl 936,1 3 2 :FORTT*1TO 2 5 0 :N 
EXT 

66 NEXT 

68 POKEl 936,32:POKEVC+21,0 :POKEL 
O,0:POKEHI,0 

70 F0RX=32TO314STEP2:Y=242-100*S 
IN(X/200) 

72 POKEVC+2,XAND255:POKEVC+3,Y:P 
OKEVC+16,INT(X/256)*2:POKEVC+ 
21 ,2 

74 POKEVO,!:POKEAT,16:POKEWA,129 
:POKELO,7:POKEH1,126 

76 FORT»1TO10 :NEXT:POKEWA,0 :NEXT 

78 POKEWA,0 

80 POKEVC + 16,0 :POKEVC + 21 ,0 

8 2 D= 0:PX=ABS(PX-34 4) :PY = PY+8:BS 
=ABS(16-PX) 

84 BP=INT((RND(1)*5+10)*SC/100) 

86 PRINT"{HOME}{ 6 GIU ' } "TAB ( 1 1 ) 
"PUNTI BONUS"BP 

88 PRINT" { 2 GIU'H 2 DES} L'AERE 


O E' RIFORNITO E PRONTO !" 

90 PRINTTAB(12)"{ 3 GIU'}{PUR} 

[< 13 P>j" 

92 PRINTTAB(6)"{PUR}PREMI [<G>] 
{CYN}"D$"{PUR) [<G>1 PER INIZI 
ARE" 

94 PRINTTAB(12)"{PUR}l< 13 Y>]“ 
9b IFPEEK ( KEY) OKI THENSB=SB+1 : GO 
TOl 1 0 

98 IFPEEK (KEY) OK2THEN98 
I00 SB= 0 :SC=SC+BP:IFHS<SCTHENHS= 
SC 

102 LA=LA+1 

104 IFLA = 5ANDSK<1THENSK=SK+. 1 5 :L 
A = 0:PY = 4 5 

106 IFLA=5ANDSK=1THENLA=0:PY=45 
108 GOTO!6 

110 IFSB> 20THENPRINTTAB(13)" 

{ 2 SU}{PUR}"D$"{GIU 1 }" 

112 IFSB> 40THENSB = 0:PRINT" 

{ 2 SU}"; :G0T092 
114 GOTO96 

4 99 REM* * * *POTENZA BOMBE**** 

500 B=X : BX=X : BY i? Y+ H 
502 IFB> 255THENPOKHVC + 16,PEEK(VC 
+16)OR4 

504 D=INT(RND(1)*SP+SP/2) 

510 RETURN 

599 REM****DISTRUZIONE PALAZZI** 
★ * 

600 H = (1 064+- (B-l 6)/8+ (BY-45) *5) 
602 IFH>1 9 4 3THEND = 0: GOTO60 8 

604 POKEVC+4,BXAND255:POKEVC+5,B 
Y:POKEVC+21,PEEK(VC+21)OR4 

606 IFPEEK(H)<>32ANDPEEK(H)<>133 
THEND=D-1 :SC=SC+1 

607 POKEH,32:IFPEEK(H+40)=129THE 
N POKEH + 4 0,130 

608 IFD=0THENPOKEVC+21,PEEK(VC+2 
1)AND251 :POKEVC+16,PEEK(VC+1 
6)AND251 

610 BY = BY + 8 

612 IFSC>HSTHENHS=SC 

620 RETURN 

699 REM****SEQ.DISTRUZIONE**** 

700 POKE(VC+16),PEEK(VC+16)AND25 
! :POKE(VC + 21) ,2 

702 IFDX>0THENPOKE2041,195 
704 IFDX<0THKNPOKK2041,196 
706 POKEVO,15:POKEAT,68:POKESU,2 
40 :POKEWA,129 :POKELO,200 :POK 
EHI,40 

708 FORVI-15TOOSTEP-.25:POKEVO,V 
1 :POKEVC + 40,!5-Vl:FORT=lTOl0 
:NEXTT,Vi:POKEWA,128 
710 POKEVC + 40,CO:D = 0 
712 FORPY=YT0213STEP2:POKEVC+3,P 
Y:FORT=1TO10 :NEXTT,PY 
714 PRINT"{HOME}{ 4 GIU'}"TAB(10 
)"PROVA ANCORA!" 

716 FORX=15T01STEP-1:POKEVC+32,X 
:POKEVC + 3 3,X :FORT=1TO10 0 :NEX 
T 
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718 POKEVC + 17,11 :F0RT=1T0150:NEX 
T:POKEVC+17,27:NEXT 
720 FOKT=1TOl 000 :NEXT 
722 POKEVC+21,0:POKEVC+16,0 
724 PRINTCHR$(147) :POKEVC + 32,6 :P 
OKEVC+33,6 

726 POKEVC+24,21:POKE198,0:GOSUB 
5000:SC=0:PY=45:GOTOl4 

799 REM* * * *CANSIA LIVELLO DIFFIC 
OLTA'**** 

800 PRINTCHRS(1 47) 

802 POKEVC + 32,0 :POKEVC+33,0 
804 GOSUB1 000 : RETURN 

999 REM** * * INIZIALIZZAZIONE**** 

1000 PRINTCHR$(147) 

1 002 PRINTLEE'T$ (A$ ,7)TAB (7) " 
{CYN}JOYSTICKS S/N" 

1004 P=PEEK(197) 

1 006 IFP=13THENKEY=56320:Kl=l11 : 
K2=l 27: D$ = "FUOCO" :F.$ = " (RVS) 
FUOCO{OFF)": GOTO1012 
1 008 IFP = 39THKNKEY”I97 :Kl *60 : K2* 
64 :D$ = "SPAZIO":E$ = "{RVS)SPA 
ZIO{OFF}":GOTO 101 2 
1010 GOTO1004 

1012 PRINTTAB(1 1 ) "{ 3 GIU'lLIVEL 
LO{ 8 SPAZI}!-5" 

1014 PRINTTAB(11)"{GIU’}[ 1-DIFF 

. 5-FACILE]" 

1020 P=PEEK(197) 

1 022 IFP=56THENSK=1: GOTO 1034 
1024 IFP=59THENSK=.85:GOTO 1034 
1 0 26 IFP=8THENSK=.7 :GOTOl034 
1 028 IFP=1 1 TUEN.SK= . 55:G0T01 034 
1030 IFP=16THENSK=.4 :GOTOl0 34 
1032 GOTOl020 

1034 PRINTTAB(14)"{ 3 GIU']VELOC 
ITA' AEREO" 

1036 PRINTTAB(11)"{GIU 1 }( F-VELO 
CE S-LENTO ]" 

1038 P=PEEK(197) 

1 040 1FP = 21THENSP= 8 : RETURN 
1042 IFP=13THENSP=4:RETURN 
1044 GOTOl038 

1999 REM * * * * INTESTAZIONE* * * * 

2000 POKEVC+17,11:PRINT"{CLR} 

{YEL} { 2 GIU 1 } { 4 DESHrVS} 
BLITZ!{OFF}ATTENDERE..." 
2032 POKEVC+17,27 
2034 FORT=lTOl000:NEXT 
2036 IFG =1TH EN R ETURN 

2999 REM***CARATTERI HI-RES**** 

3000 POKE52,48 :POKE56,48 

3002 POKE56334,PEEK(56334)AND254 

3004 POKE1,PEEK(1)AND251 
3006 FORI = 0TOl 02 4 :POKEI + 1 4 336,PE 
EK(1+53248):NEXT 
3008 POKEl,PEEK(1)OR4 
3010 POKE56334 ,PEEK(56334)OR 1 
3012 FORI=0TO47:READA 


3014 POKEl5360+1,A:NEXT 
301u FORI = 0TO319 :READA:POKEl 2288 
+1,A:NEXT 

3018 POKE2041,192:POKEVC+40,CO 
3020 POKE20 4 2,1 94:POKEVC+41 ,15 

3999 REM 

4000 POKEVC+17,11 :POKEVC + 24,23 
4028 POKF.VC+1 7,27 

4030 IFPEEK (KEY) OKI THENSB = SB+1 : 
GOTO4036 

4032 IFPEEK (KEY) OK2THEN4032 

4034 G=1:SB=0:RETURN 

4036 IFSB>10THENPRINTA$TAB(12)D$ 

/ 

4038 IFSB>20THENSB=0:PRINTA$TAB( 

12)E$; 

4040 GOTO4030 

4999 REM****PUNTEGGI**** 

5000 Z = 0:FORX=lTOl0 :IFSC>SC(X)TH 
ENZ=X:X=11 

5002 NEXT:IFZ = 0TIIEN5020 
5004 PRINT"{CLR]{ 9 GIU')"TAB(7) 
"BATTI IL TUO NOME" 

5006 INPUT"( 3 GIU'}{ 8 DES}NOME 

{ 4 DES}. 

{ 17 SIN}";N$ 

5008 IFLEN (N$) >1 5THENN$=I.EFT$ (N$ 
,15) 

5010 FORX=1TO15:Z$ = MID$(N$,X,1) : 
IFZ$ = "."THENN $ =LE FT$(N$,X-1 
):X=16 
5012 NEXT 

5014 IFZ=10THEN5018 
5016 FORX= 9TOZSTEP-1 :SC(X+l)=SC( 
X) :SC$ (X+l)=SC$(X) :NEXT 
5018 SC(Z)=SC:SC$ (Z)=N$ 

5020 POKEVC+17,11:PRINT"{CLR}"TA 
B(12)"{YEL}** {GRN} PUNTEGG 
I{ 3 SPAZI}{YEL}**{GIU'}" 

50 22 FORX-1TOl0 :PRINT"{GIU' } 

{CRN} RUN{YEL}";X;TAB(10) 
{WHT}";SC(X);TAB(23);"{YEL} 
";SC$ (X) 

5024 NEXT 

5028 POKEVC+17,27:POKEVC+27,2 
5030 FORX=0TO314STEP2:Y=65+100*S 
IN(X/l00) 

5032 POKE2041 ,1 92 :POKEVC+29,2 : PO 
KEVC + 23,2 :POKEVC+4 0,7 
5034 POKEVC+16,INT(X/256)*2:POKE 
VC+2,XAND 2 55 :POKEVC + 3,Y:POK 
EVC+21,2 
5036 NEXT 

5038 POKEVC + 21,0 :POKEVC + 2,0 :POKE 
VC+3,0 :POKEVC+29,0 :POKEVC + 2 
3,0:POKEVC+40,CO :POKEVC+27, 
0 

5040 IFPEEK(197)=4THENSB=0:SS=0: 

GOTO800 
5042 GOTO5052 

5044 IFPEEK(197)=3THENSYS64738 
50 4 5 GOTO5052 

5046 IFPEEK (KEY) OKI THEN5052 
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5048 IFPEEK(KEY) OK2THEN5048 
5050 SB=0:SS=0:RETURN 
50 52 SB=SB+1 :SS=SS+1:IFSS=300THE 
NSB=0:SS=0:RETURN 
5054 IFSS> 75ANDSS=<1 50THEN5066 
5056 IFSS>150ANDDSS=< 225THEN5074 

5058 IFSB=<2THENPRINTA$TAB(7)" 

[<1>]PREMI {PUR}"E$" [<1>]P 

EH INIZIARE"; 

50 6 0 IFSB> 2ANDSB-< 4THENPRINTA$TA 
B( 1 3)D$"" ; 

50 6 2 I FSB> 4THENSB-” 0 
5064 GOTO 50 4 6 

5066 IFSB=<2THENPRINTA$TAB(7)" 

(<1>] PREMI {WHT} L F1] [<1>] 
PER CAMBIARE LIVELLO”; 

50 68 IFSB>2ANDSB*<4THENPR f NTA$TA 
B(13)"IRVS}{WHT)[FI]{OFF}"; 

5070 IFSB>4THENSB=0 
5072 GOTO5040 

5074 I FSB=< 2THENPRItJTAvTALi ( 7 ) " 
[<1>1 PREMI {YEL}[F7J [<1>] 
PER FINIRE”; 

5076 IFSB>2ANDSB=<4THENPRINTA$TA 
B(I4) M {RVSÌ{YEL} [F 7) {OFF}"; 

5* ■ 7 8 IFSB> 4THENSB=0 
5080 GOTO5044 

5459 REM* * * * DATI HI-RES**** 

5500 DATA24,24,24,24,24,60,126,2 
55 

5 502 DATA25 5,1 5 3,1 53,255,255,1 53 
,153,255 

5 50 4 DATAI 2 8,1 52,1 53,255,2 55,1 53 
,153,255 

5506 DATA56,56,16,124,186,186,40 
,108 

5508 DATA 56,186,146,124,56,56,40 
, 1 08 

5510 DATA90,165,90,189,189,90,16 
5,90 

5511 REM * * * *AEREO IN AVANTI**** 

5512 DATA0,0,0,0,0,0,0,0 
5514 DATA0,0,0,0,0,0,0,0 
5516 DATA0,0,0,0,0,0,0,0 
5518 DATA0,0,0,0,0,0,0,0 
5520 DATA0,0,0,0,0,0,0,96 

5522 DATA255,254,240,24,96,240,4 
8,1 92 

5524 DATA255,255,227,255,255,251 
,127,255 

5 52 6 DATA2 55,1 27,255,251 , 1 5,255, 
195,0 

5527 REM ****AEREO INDIETRO**** 

5528 DATA0,0,0,0,0,0,0,0 
5530 DATAO,0,0,0,0,0,0,0 
5532 DATAO,0,0,0,0,0,0,0 
5534 DATAO,0,0,0,0,0,0,0 
5536 DATAO,0,0,0,0,0,0,127 


55.3 8 FIATA255,6,6,24,1 5,3,1 2,1 5 
554 0 DATAI 99,2 55,255,223,2 55,255 
,255,255 

5 54 1 D ATA 254,223,255,254,1 9 5,2 55 
,240,0 

5542 REM ****BOMBA**** 

5544 DATAO,0,0,0,0,0,0,0 
5546 DATAO, 0,0,0,0,0,0,0 
5548 DATAO, 0,0,0,0,0,0,0 
5550 DATAO, 0,0,0,0,0,0,0 
5552 DATAO, 0,0,0,0,0,0,0 
5554 DATA 60,0,0,24,0,0,60,0 
5556 DATAO,60,0,0,60,0,0,60 

5558 DATAO,0,60,0,0,24,0,0 

5559 REM ****CRASH AVANTI**** 

5560 DATAO,0,0,0,0,0,0,0 
5562 DATAO,0,0,0,0,0,0,0 
5564 DATAO,0,0,0,0,0,0,0 
5566 DATAO, 0,0,0,0,0,0,0 
5568 DATAO,0,255,0,0,24,0,96 
5570 DATA48,254,240,255,96,240,2 

55,192 

5572 DATA255,255,227,255,255,251 
,127,255 

5574 DATA255,127,0,251,15,0,195, 
0 

5575 REM ****CRASH INDIETRO**** 

5576 DATAO,0,0,0,0,0,0,0 
5578 DATAO,0,0,0,0,0,0,0 
5580 DATAO,0,0,0,0,0,0,0 
5582 DATAO,0,0,0,0,0,0,0 
5584 DATAO,0,255,0,0,24,0,127 
5586 DATAI 2,6,6,255,1 5,3,255,1 5 
5588 DATAI 99,255,255,223,255,255 

,255,255 

5590 DATA254,223,0,254,195,0,240 

,0 
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3D-Graph 



Avete presente, sulla scatola d'imballaggio del 
vostro C64, la foto di quella splendida scher¬ 
mata di un istogramma tridimensionale in tre 
colori? Ebbene, questo programma realizza, 
sullo stesso principio, degli istogrammi tridimen¬ 
sionali, con un massimo di tre banchi visualizza 


7 

1 1 000 REM*********************** 

A A A A 

11010 REM INPUT DATI 

1 ì 020 RKM*********************** 
* * * * 

11030 POKES3281,15:INPUT"{CLR} 

{BLK}{GIU'}VUOI CARICARE D 
A NASTRO (5/N):";Q$ 

11040 IFQ$="S"THEN12420 
11050 PRINT"{CLR}{GIU'} 

{ 12 DES}{RVS}{RED}3-D GRA 
PII" 

11060 PRINT"{GIU'}{BLKjCI SONO 1 
9 UNITA' VERTICALMENTE." 
11070 PRINT"{GIU'}{BLU INUMERÒ RA 
PPRESENTATO DA UNA UNITA'? 

Il 

11080 INPUT UV 

11090 INPUT"{GIU’}{RED{NOME DELL 
' ASSE ORIZZONTALE" ; NI 15 
11100 PRINT"{CLR}{GIU'}{BLK}PUOI 
AVERE DA UNA A CINQUE COL 
ONNE." 

imo INPUT" {GIU ' }QUANTE NE VUOI 
" ; ND 

11115 IFND<OORND>5THENGOTOl 1 1 00 
11120 PRINT"{ 2 GIU'}{GRNjPUOI A 
VERE DA UNO A TRE BANCHI." 
11130 INPUT"{GIU'}QUANTI NE VUOI 
" ; NB 

11140 FORI=0TONB-1 
11150 PRINT"{GIU'}[GRNjNOME DELL 
'ASSE VERTICALE"; 1 + 1 ; :INPU 
TNV$(I):NEXTI 
11160 DIMHH(2,6) 

11170 PRINT"{CLR}"; : FORI=0TONB-1 
11180 FORJ=lTONO 

11190 PRINT"{GIU'}INSERISCI IL V 
ALORE"J"DBL BANCO"1+1 ;":"; 

:INPUTT 

11200 1FINT(T/UV)>19THEM PRINT" 
{GIU'}TROPPO ALTO.":GOT011 
1 90 


bili contemporaneamente, dei quali il primo è 
il più interno. Il programma vi permette di as¬ 
segnare dei nomi all'asse orizzontale ed ai tre 
assi verticali, la scala di rappresentazione, con¬ 
sente inoltre di registrare e ricaricare i dati in¬ 
seriti su nastro. L'effetto grafico sarà 
sorprendente. 


11210 I IH ( I , J ) =T t NEXT.J , I 

12000 REM*********************** 
★ * * * 

12020 REM DISEGNA IL GRAFICO 

1 20 30 REM* * ********************* 
* * * 

1 2040 P0KF.53281 ,0: PRINT" {CI.R} 

[ <2>] { 20 GIU*}"; 

12050 F$="{ 5 DES}" 

12060 FORI-1T04:PRINTF5;"[<*>J 

{RVS}{ 29 SPAZI}{<*>]":F$= 
F$+"{DES}":NEXT 

12070 PRINT"{HOME}{ 5 DES}{WHT} 
[< 30 P>)" 

1 2080 FORI = 1TO19 :PRINT"{ 5 DES] 
L" • 

12090 PRINT"{ 28 SPAZI}@":NEXT 

12100 PRINT”{HOME}";:FORI=lT04:P 
RI NT"{ 4 GIU' }{ 6 DES}"; 

12110 PRINT"[< 28 P>]":NEXT 

12120 Fi$="{HOME}{ 20 GIU'}":F$= 
"{ 30 DES}":CO$="{YEL} 

{GRN}{PUR}" 

12130 PRINT"{HOME}{ 24 G1U'}";NH 

$; 

12140 FORH = OTONB-1 :PRINT"{HOME} 
{GIU'}{ 7 SIN}";MID$(FS,1, 
2*(H+1));MID$(CO$ , H+1,1); 

12150 TT$=NV$(H)+" *"+STR$(UV):F 
ORI=1TOLEN(TT$) 

12160 PRINTMID5(TT$,I,1);"{SIN} 
{GIU'}"; :NEXTI,H 

12170 PRINT"{HOME}{ 3 DES} 

{ 4 GIU'}15{ 2 SIN} 

{ 5 GIU'}10{ 2 SIN} 

{ 5 GIU'}5{S1N}{ 5 GIU'}0" 

12180 F3$ = Fl$ :FORH = 0TONB-1 :PRINT 
MID$(COS,H+l,1) 

12190 F2$=LEFT$ (F$, 8+4*(ND-1)+H+ 
4) :PRINTFl$ ;F2$; 

1 2200 FORI =NDT01 STEP-1 : I FINT(11H ( 
H,I)/UV)=0THENl2270 
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{OFF){ 2 SPAZI}";Q$:R$=CHR 
5(13) 

12350 OPENl,1,1,"GRAPH" 

1 2390 PRINT# ! , NU; RS ; ND ; H§ ; NH$ ; R$ 
;UV 

12400 PORI=OTONB-1:PRINT#1,NV$(I 
):FORJ=OTOND:PRINT#1,HH(I, 
J):NEXTJ,I 

12410 CLOSEI : END 

12420 INPUT"{CLRÌ{GIU'}{CRN)POSI 
ZIONA IL NASTRO E PREMI 
ÌKVS)RETURN{OFF) 

{ 2 SPAZI}";Q$:DIMNVS(2) ,H 
H ( 2,6 ) 

12430 OPENl,1,0,"GRAPH" 

12440 INPUTH1,NB,ND,NH$,UV 

124 50 FORI^OTONB-1 : INPUT*1,NV$(1 
) :FORJ=0TOND: INPUT#! ,1111 (I , 
J):NEXTJ,I 

12460 CLOSEl:GOTOl2000 

12470 GOTO12470 

12210 FORJ = 1 TOINT (HH (1I,I)/UV) +H 

12 220 IFINT(HH(H,I)/UV)=0THENl 22 
70 

1 2230 IFJ = !THENPRINT"[< 2 >] {RVS) 
(<*>]";MID? (CO$ ,11 + 1 ,1 ) ;" 


{ 2 SPAZI){OFF){SU) 

{ 4 SIN)"; 

12231 IFU > OTHENGOTO1 2242 

1 2240 IFJ>1THENPRINT"[<M>) t<N>) 

{RVS){ 2 SPAZI}{OFF){SU) 

{ 4 SIN)";:COT012250 

1 2242 1FJ>1THENPRI NT"{DES} [<N>) 

{RVS}{ 2 SPAZI){OFF){SU} 

{ 4 SIN}"; 

12250 NEXTJ 

12251 IFH=OTHENGOTO12260 

12252 PRINT"{DES}[<*>){RVS} 
l<*>){SIN)":GOTO!2270 

12260 PRINT"(<M>)[<*>]{RVSi 
|<*>|":GOTO12270 

1 2270 PRINT:F2$ = LEFT$ (F2$,I.EN(F2 
5)-5) :PRINTF1$ ;F2$; :NKXTI 

12280 Fi$=Fl$4"{GIU'}" 

1 2290 F2$ = LEFTS ( F$ , 9-t 4 * ( MD- 1 ) ) :P 
RINTF3?;F2$; 

12300 NEXTH 

1 2350 GETA5: IFAO-""THENl 2350 

12360 INPUT"{CLR){GIU'){WHTjVUOI 
SALVARE I DATI (S/N):";Q$ 
:IFQ$="N"THENEND 

12370 INPUT"{GIU'{POSIZIONA IL N 
ASTRO E PREMI {RVS}RETURN 


Star Cruise 



Lo vostra qualifica di ufficiale preposto olla cen¬ 
tanno di tiro nell'astronave Centaurus, vi rico¬ 
pre della pesante responsabilità della precisio¬ 
ne dei tiri con i cannoni laser verso le astrona¬ 
vi nemiche che vi minacciano. Lo zona golat- 
’ tica ER 320 in cui vi trovate in missione è infe¬ 
stata dai perfidi Klinx, e vi è stato richiesto di 
annientarli completamente. A causa della gran 
quantità di energia richiesta dai potenti 


1 POKE55,2f>5:POKE56,47: V= 5324 8 : P 
OKEV+32,ì 2 :POKEV+33,0 :POKEV+38 
1 5 :POKE54 296 ,15 

5 FORI=OTOó 3 8 :RKADA:POKE1 0 24* 1 2 + 
I , À : NiJXT 

10 POKE2040,1 92: POKE2041 , 193:POK 
E2042,194 :POKEV+21,1 : POKEV+39 
,!>:POKEV+23,l 


cannoni laser , disponete di un autonomia limi¬ 
tata a circa due minuti e mezzo. Muovete il 
mirino con i tasti: 

W in alto 
X in basso 
A sinistra 
D destra 
S per sparare 


1 53 POKEV + 29 f 9 : POKEV , 1 48 :POKEV+1 r 

1 0 8 : POKEV I 28,6 : POKEV-t 40,2: POK 
EV+41 ,2 :POKEV + 37,8 
20 KB=197:PRINT"{CLR}" 

2 53 FORI-OYOl 531 : READA: POKEl 3*1024 

+ 1,A :NKXT 

30 D=1 3* 1 024 :LE = D + 52:RI-D+102 :FO 
RI = 5532 9bT056 29 5 : POKEl , 1 : NEXT 
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35 FORT = 1 TOSO :POKEl024 + RND(1 )*10 
00,46:NEXT 

40 AL=0:TI$="000000":SC=0 
50 K=PEEK(KB):A=PEEK(V+30):POKEV 
+39,5:IFA=9THENPOKEV+39,2 

52 IFKOl 3THEN1 00 

53 PORE54276,0:POKE54273,72:POKE 
54272,1 69 :POKE54277,1 43 :POKE5 
4276,129 

55 POKKV+2,60 :POKEV+3,220:POKEV+ 
5,220 

60 POKEV+4,4 : POKEV+1 6 , PEEK (V+16) 
OR4:PCKEV+21,PEEK(V+21)OR6 
65 FORI = 1 TO.i2 : POKEV+2 ,PEEK (V+2) + 
3 :POKEV+ 3,PEEK(V+3)- 3 :POKEV+5 
,PEEK(V+3) 

70 A = PEEK(V+4)- 3 :IFA<0THENA=255 : 

POKEV+16,PEEK(V+16)-4 
72 POKEV+ 4,A 

75 A=PEEK(V+30):NEXT:POKEV+21,PH 
EK(V+21)- 6 :Ì3=AAND2 : IFB= 0THENB 
=AAND4 

80 IFB-0THEN85 

82 IFAAND8THEN1000 

83 POKE54276,0:POKE54273,1 7:POKE 
54277,7:POKE54276,129 

8 5 POK EV + 2,PEEK(V)+10 :POKRV+3,PE 
EK(V+I)+10:POKE2041 , 201 :POKEV 
+21,PEEK(V+21)OR2 
90 FORI = 1 TOSO:NEXT:POKEV+21,PEEK 
(V+21)-2 
95 POKE2041,193 
100 IFALSOl’HENl 30 
105 IFRND(1)>.ITHEN200 
1 07 IFPEEK(V+16)ANDATHENPOKEV+16 
,PEEK(V+16)- 8 

110 POKEV+6,RND(1 )*256:IFRND(1 ) > 
. 7 5T11EN POKKV+6 , RND ( 1 ) *63:POK 
EV+16,PEEK(V+16)OR8 
115 POKEV+ 7,RND(1 )*200:Z=INT(RND 
(1)*5):POKEV+42,4 

120 DZ=INT(RND(1)*5-2):DY=INT(RN 
D(1)* 5-2) :DX = INT(RND(1)*5-2) 

121 IF(DX=OANDDY=OANDDZ=0)OR(DX= 
0ANDDY = 0ANDDZ> 0)THENl20 

122 IFZ-0T11EN 1 29 

1 23 IFPEEK(V+16)AND8THENPOKEV+16 
,PEEK(V+16)-8 

124 IFRND(1)>.5THEN127 

125 POKEV+6,2 : IFRND(1)>.5THENPOK 
EV+6,8 6 :POK KV+16,PEEK(V+16)O 
R8 

126 GOTOl29 

127 POKEV+ 7,31 :IFRND(1)>.5THENPO 
KEV+7,246 

129 POKE2043,1 95 + Z:POKEV+21,PEEK 
(Vf21)OR8 :AE-1 

I 30 A = PEEK (V-t 7) +DY*2: IFA<3 IORA>2 
46THKNA1,= 0:POKEV+21 ,PEEK (V+2 
1)- 8 : GOTO 200 

135 POKEV+ 7,A:A=PEEK(V+6)+DX*2:B 
=PEKK(V+16)AND8 


140 IF(A<2ANDB=0)OR(A>8óANDB)THE 
NAL=0:POKEV+21,PEEK(V+21)-8: 
GOTO200 

1 4 5 IFA<0THENA=255:POKEV+16,PEEK 
(V+I6)-8 

1 50 IFA>255THENA=0:POKEV+16,PEEK 
(V +16)OR8 

1 55 POKEV+6,A:Z = Z+DZ/20:IFZ<0THE 
NAL=0:POKEV + 21,PEEK(V+21 )-8: 
GOTO200 

157 IFZ> 4.9THENZ = 4.9 :DZ = -INT(RND 
(1>*3) 

160 POKE2043,195+Z 
165 IFRND(1)<.9THEN200 
170 DX = INT(RND(1)* 5-2) :DY = INT(RN 
D(1)*5-2):IFRND(1)>.7THENDZ= 
INT(RND(1)*5-2) 

175 IFDX = 0ANDDY = 0ANDDZ = 0THEN170 
200 IFKO9ANDK01 8ANDK023ANDK0 
10THEN300 
203 IPAL=0THEN232 

20 5 A = PE13K ( V+7 ) - ( K=9) * 8+ ( K= 23 ) * 8 

206 IFA< 31 ORA>246THENAI.= 0 : POKEV+ 
21,PEEK(V+21)- 8 : GOTO50 

207 POKEV+7,A 

210 B=PEEK(V+16)AND8:A=PEEK(V+6) 
-(K=10)*8+(K=18)*8 

21 5 IF ( A< 2ANDFi = 0 ) OR ( A> 86ANDB) THE 

NAL=0:POKEV+21,PEEK(V+21)-8: 

GOTO200 

220 IFA<0THENA=255:POKEV+16,PEEK 
(V+16)-8 

225 IFA>255THENA“0:POKEV+16,PEEK 
( V116)OR 8 
230 POKEV+6,A 

232 IFK = 9THENSYSD:POKEl024+RND( 1 
)*40,46:GOTO300 

235 IFK = 10THENSYSR t:POKEl024 +INT 
(RND(1)*25)*40,46:GOTO300 
240 IFK=18THENSYSLE:POKEl063+INT 
(RND(1)*25)*40,46:GOTO300 

245 PKINT" (HOME) { 25 GIU'HWHT} 

{ 39 SPAZI)"; 

250 POKE56295,1 :POKEl 984 + RND(1)* 
40,46 

300 IRTI$<"000200"THEN50 
305 PRINT" {HOME) {CYNjFINli TEMPO 
{ 4 GIU 1 )":PRINT"(RED)PUNTI: 
";SC:POKEV+27,255 
310 PRINT"{ 5 GIU’}VUOI GIOCARE 
ANCORA (Y./N) ?" 

315 GETA$:IFA$="Y"THENPOKEV+21,1 
:PRINT"{CLR)":POKEV+27,0 :GOT 
030 

320 IFA$< >"M"THEN315 
325 END 

1000 POKEV + 21 ,9 :AL=0:POKEV+2,PEE 
K(V) + 10 :POKEV+3,PEEK(V+1)+1 
0 
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10 01 POKE54 2 76,0 :POKE542 7 3,8:POK 
E 5 4 2 7 2 ,4 7 :POKK5 4 2 7 7,76:POKE 
54276,129 

1005 POKEV+4,PEEK(V):POKEV+5,PEE 
K(V+1):POKEV+23,PEEK(V+23)0 
R4 

1010 POKEV+29,PEEK(V+29)OR 4:POKE 
2041 ,200:PO KE2042,200 

1015 POKEV+21,PEEK(V + 21)OR6:FORA 
= 200 TO 201 :POKE2042 ,A:FORB=2 
00TO201 .9STEP.0 5 

1020 POKE54276,0:POKE54276,129:? 
OKE2041 ,B:NEXTB,A :POKEV+ 23, 

1 :POKEV + 29,9 

1 025 POKEV+21 ,1 :POKE2041 , 1 93:POK 
E204 2,1 9 4 :SC =SC+(5-INT(Z))* 

10:COTOl00 

10000 DATA0,0,0,0,0,0,0,0,0,0,28 
,0,0,255,128,7,128,240,12, 
0,24,16,8,4,32,8,2 

10005 DATA32,0,2,0,99,0,32,0,2,3 
2,8,2,16,8,4,12,0,24,7,128 
,240,0,255,128,0,28,0 

10010 DATA0,0,0,0,0,0,0,0,0,99 

10015 DATA0,0,0,0,0,0,0,2,128,0, 
2,1 28,0,41 , 1 28,0,41 , 1 28,0, 
150,0,0,150,0,2,86,0 

10020 DATA2,86,0,2,88,0,2,88,0,9 
,160,0,9,160,0,38,0,0,38,0 
,0,40,0,0,40,0,0 

1 00 25 DATAI 28,0,0,1 28,0,0,0,0,0, 
99 

1 0030 DATA0,0,0,0,0,0,2,1 2 8,0,2, 
128,0,2,104,0,2,104,0,0,15 
0,0,0,150,0 

10035 DATAO,149,128,0,149,128,0, 
37,128,0,37,128,0,10,96,0, 
10,96,0,0,152,0,0,152 

10040 DATAO,0,40,0,0,40,0,0,2,0, 
0,2,0,0,0,99 

10045 DATAO,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,8,0,0,62,0,0,0,0 


10050 DATAO,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0,0,0,0,0,99 

10055 DATAO,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 0 , 
0,28,0,0,255,128 

10060 DATAO,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0,0,0,0,0,0,0,0,99 
1 0 0 6 5 DATA0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,34,0,0,28, 
0,0,127,0,3,255,224 
10070 DATAO,201,128,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10075 DATA99,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,99,0,0,28,0,0 
,62,0,0,247,128 


1 0080 DATA7,255,240,31 , 255,252,1 
,201,192,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10085 DATAO,0,0,0,0,0,0,99 
10090 DATAO,0,0,0,0,0,0,0,0,0,0, 
0,0,128,128,0,99,0,0,28,0, 
0,127,0,1,227,192,15 
10095 DATA255,248,127,255,255,7, 
156,240,2,0,32,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10100 DATAO,0,0,0,0,0,0,99 
10105 DATAO,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,32,0,0,186,128,1 
0,247,128,47,123,128 
lòllO DATAI 81 , 1 51 , 224,1 73,85,1 20 
,11,95,248,2,222,160,2,222 
,0,2,222,0,0,190,0 
10115 DATAO,40,0,0,0,0,0,0,0,0,0 
,0,0,0,0,99 

10120 DATAO, 0,0,0,0,0,0,2,128,0, 
1 38,232,2,239,1 20,1 1 , 1 1 7,2 
24,45,119,168,47,87 
10125 DATA254,10,213,94,11,85,24 
8,1 1 ,87,1 60,45,221 , 1 28,1 81 
,221,224,183,223,120 
10130 DATA46,187,94,8,34,222,0,0 
,184,0,0,32,0,0,0,0,0,0,0, 
0,0 

20000 DATA162,192,189,255,6,157, 

39.7.202.208.247.202.189.2 

55.5.157.39.6.202.208 
20005 DATA247,202,189,255,4,157, 

39.5.202.208.247.202.189.2 

55.3.157.39.4.202.208 
20010 DATA247,169,32,157,0,4,232 

,224,40,208,248,96 
30 000 DATAI 69,0,133,20,1 6 9,4,133 
,21,160,1,177,20,136,145,2 
0,200,200,192,40 

30 0 05 DATA208,245,1 36,169,32,1 45 
, 20,169,40,24,101 , 20,1 33,2 
0,169,0,101,21,133,21 
3001 0 DATA201 ,7,208,221, 165,20,2 
01,232,208,215,96 
4 0000 DATAI 69,0,1 3 3,20,1 69,4,1 3 3 
,21,160,39,177,20,200,145, 
20,136,136,192,255 
4 000 5 DATA208,245,200,1 69,32,1 45 
,20,169,40,24,101,20,133,2 
0,1 69,0, 101 ,21 , 1 33,21 
4 001 0 D ATA 201 ,7,208,221 ,165,20,2 
01 , 232,208,21 5.96 


Aspettiamo 
i tuoi 
lavori 
migliori! 
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Bioritmi 



La teoria dei bioritmi afferma che nella vita di 
ognuno di noi ci sono tre cicli che iniziano dal 
giorno della nascita,e cioè il ciclo fisico (che dura 
23 giorni), il ciclo emotivo(28 giorni) ed il ciclo 
intellettivo (33 giorni). Le nostre capacità fisi¬ 
che, emotive ed intellettive sono influenzate, 
secondo tale teoria, dal valore (compreso tra 
+ I e -I) di questi cicli; se questo valore è po¬ 
sitivo, le nostre condizioni saranno tanto più 
buone quanto più esso è prossimo a I, in par¬ 
ticolare se è in aumento. Il contrario avviene 
se il valore è negativo.Questo semplice pro¬ 
gramma calcola, in base alla vostra data di na- 


100 DIMG(2), M ( 2 ), A ( 2 ), M$(12) 

110 FORI = 1TO12 :READMS( I) :NEXT 
120 DATAGENNAIO,FEBBRAIO,MARZO,A 
FUILE,MAGGIO,GlUGNO 
130 DATALUGLIO,AGOSTO,SETTEMBRE, 
OTTOBRE,NOVEMBRE,DICEMBRE 
140 GOSUB670:GOSUB720:PRINT" 

(GIU'}":GOSUB780 

150 POKE53280,1 :POKE53281 , 1 :PRIN 
T"{CLR){BLUjDATA: "G(2)M$(M( 
2 ) ) A(2) 

100 PRINT"{GIU'} (< 40 U>|" 

170 FORK=1T02:IFM(K)>2THEN200 
180 F(K) =365*A(K) +G (K)+31*(M(K)- 
1)+INT((A(K)-11/4)-INT(.75*1 
NT((A(K)- I)/100 + l) ) 

100 GOTO 220 

200 F(K)=365*A(K)+G(K)+31*(M(K)- 
1)-TNT(.4*M(K)+2.3)+iNT(A(K) 
/ 4 ) 

210 F{K) =F(K ) —INT(.75*(I NT(A(K)/ 
1001+1)) 

220 NEXT:L=23:MD=0:FORK=1T03:C(K 
)=SIN(2 * *(F(2)-F(1) )/L) :MD = 
MD+C(K):L=L+5:NEXT 
230 PRINT"{PURjCICLO FISICO 

{ 2 SPAZI)*********** ”; :K = 1 
:GOSUB500:GOSUB320 
240 PRINT"(PUR)CICLO EMOTIVO 

( 2 SPAZI}********** "; :K = 2: 
GOSUB500:GOSUB32 0 
250 PRINT"{PURjCICLO INTELLETTIV 
0{ 2 SPAZI}***** "; : K= 3 :GOSU 
U500:GOSUB320 


nascita, i valori in qualsiasi giorno dei vostri ci¬ 
cli bioritmici e la loro media; è possibile visua¬ 
lizzare consecutivamente i dati di più giorni suc¬ 
cessivi, per confrontare i valori e quindi stabili¬ 
re se un dato ciclo è crescente o decrescente 
in un certo giorno. I quattro valori numerici sono 
mostrati sul video assieme ad altrettanti isto¬ 
grammi (cioè linee di lunghezza proporzionale 
ai numeri) che, apparendo verdi nei giorni 'al¬ 
ti' del ciclo e rossi nei giorni 'bassi', vi aiutano 
ad analizzare la situazione con un semplice col¬ 
po d'occhio. 


260 PRINT"(GIU’}[<4>]MEDIA DEI C 
ICLI{ 2 SPAZI)******** ” ; : K= 
0:C(0)=MD/3:GOSUB500:GOSUB32 
0 

270 GOSUB530 

280 GOSUB560:IFC$="{Fi}"THENl40 
290 IFC$=CHR$(13)THENGOSUB580:GO 
TO 1 5 0 

300 IFO$="{F7}"THENGOSUB670:GOSU 
B780 :GOTO150 
310 GOTO280 

320 T=C(K)* 19+19:W = INT((T-INT(T) 
1*8) :GOSUB510 :PRINT"[<M>]"TA 
B ( 39)"[<G>]";:GOSUB520 
330 IFC(K)>=0THENPRINT"{GRN}";:G 
OTO360 

340 PRINT"[<M>1{RVS){RED) 

{ 19 SPAZI){ 20 SIN){OFF]"; 
350 FORI = 1 TOT:PRINTTAB(I)" ";:NK 
XT:PRINT"{SIN}{RVS)";:G0T038 
0 

360 IFT<=20THEN380 
370 FORI=2OTOT:PRINTTAB(I)"{RVS) 
"; :NEXT:PRINT"{OFF}"; :IFT=3 
8THENPRINT:RETURN 
380 PRINTTAB(T+l);:ONW+lGOTO390, 
400,410,420,430,440,460,480 
390 PRINT" ":RETURN 
400 PRINT"[<G>]":RETURN 
410 PRINT" [<H>] "-.RETURN 
420 PRINT" [<J>]": RETURN 
430 PRINT" (<K>] ".-RETURN 
440 1FT<19THENPRINT"{OFF}[<L>]": 
RETURN 
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4 50 PRINT"lRVS} [<L>]": RETURN 
460 IET<19THEN PRINT"{OFF} [<N>]": 
RETURN 

470 PRINT" I RVS } I <N> ] " : RETIJRM 
480 I PT<19THENPRINT"{OFF}(<M>) 
RETURN 

490 PRINT"{RVS}[<M>]": RETURN 
500 PRINTINT(C(K)*100)/I00:RETUR 
N 

510 PRINT"{BLU} (< 38 @>]":RETUR 
N 

520 PRINT" [< 38 T>]{ 2 SU}":RET 
URN 

530 PRINT" [<1>) {GIU’} {RVS} 

{ 7 SPAZI}PREMI < F1 > PER SME 
TTERE{ 8 SPAZI}" 

540 PRINT" {RVS}{ 5 SPAZI}<RETUR 
N> PER GIORNO SEGUENTE 
{ 5 SPAZI}" 

550 PRINT" {RVS}{ 8 SPAZI}<F7> P 
ER ALTRO GIORNO{ 9 SPAZI} 

{ 2 SU}":RETURN 
560 GETCS:IFC$=""THEN560 
570 RETURN 

580 FG=0:M=M(2):G=G(2):IFG(2)<28 
TIIEN660 

590 LM=M=10RM=30RM=50RM=70RM=80R 
M=1OO RM » 12 

600 IFM=2AN 1 j1NT(A (2) /4) *4 = A(2)AN 
DG = 2 8TU ENG = 2 9 : GOTO 620 
610 IFM=2THENG=30 
620 IF(LMANDG= 31)OR(NOTLMANDG = 3 0 
)THENFG=1 
630 IFFG = 0TliEN660 
640 G(2) =1 :M (2) =M (2) +1 : IFM (2) =1 3 
TU ENM(2)=1:A(2)=A(2) + 1 
650 RETURN 

660 G(2)=G(2)+1 : RETURN 


670 POKE53280,7 :POKE53281 ,7:PRIN 
T"{CLR} I <7>} { 9 SPAZI}{RVS} 
U{ 19 *}I_" 

680 PRINT"T 9 SPAZI } {RVS}-^ 

{ 19 SPAZI}-" 

690 PRINT"{ 9 SPAZI}{RVS}~_ 

{ 2 SPAZI}U I O R I T M I 
{ 2 SPAZI}-" 

700 PRINT"{ 9 SPAZI}{RVS}- 
{ 19 SPAZI }-_" 

710 PRINT"{ 9 SPAZI}{RVS}J 

{ 19 M K{ 3 GIU’ }":RETURN 
720 IFC$< >"Tf1}"THEN770 
730 PRJ NT"{BLU}{ 4 GIU'} 

{ 5 SPAZI}NUOVA DATA DI NASC 
ITA{ 2 SPAZI}(S/N)?" 

740 GETCS : IFC$=""THF.N740 
750 IFC$ = "S"THENRUN 
760 SYS2048 

770 PRINT"{BLU}{RVS}DATA DI NASC 
ITA:": 1=1 :GO3UB790: RETURN 
780 PRINT"{BLUj{RVS}DATA DEI BIO 
RITMI :": 1=2:GOSUB790: RETURN 
790 INPUT"{GIU'}GIORNO (1-31)"jC 
G S:G(I)=VAL(GG$) :IFG(I)>0AND 
G(I)< 32THKN810 
800 PRINT"{SU}{ 30 SPAZI} 

{ 2 SU}":GOTO790 

810 INPUT"MESE (1-12)";MM$:M(I)= 
VAL(MM$) : IFM(I)>0ANDM(I)<13T 
HEN830 

820 PRINT"{SU}{ 30 SPAZI}{SU}":G 
OT0810 

8 30 INPUT"ANNO (ES. 1 985)";AA$: A 
(I)=VAL(AA$) : IFA(I)>999ANDA( 
I)<1E4THENRETURN 

840 PRINT"{SU}{ 30 SPAZI}{SU}":G 
OTO830 


Airport *85 


C64 


Il piloto del Jumbo Jet sul quale vi trovate è stato 
improvvisamente colto da malore , e tocca a 
voi, intrepido passeggero, prendere i comandi 
e portare in salvo aereo e passeggeri atterran¬ 
do senza danni sulla pista dell'aeroporto più 
vicino. Ogni dieci secondi dovrete regolare i due 
parametri fondamentali del volo: rapporto di 


salita (componente verticale’della velocità del¬ 
l'aereo) e posizione della manetta del gas (che 
regola l'accelerazione o decelerazione dell'ae¬ 
reo). La prima volta che si tento l'atterraggio 
è vivamente consigliabile inserire il pilota auto¬ 
matico. Istruzioni supplementari sono conte¬ 
nute nel programma. In bocca al lupo! 

I 9 DIMA$(7) :POKE53280,0 :POKE53281 
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8 DKFFNA(V)=INT(V*10 0+.5)/10 0 











, 6 : PRINT"{WHT j" 

11 B$=" [< 4 T>)" 

12 C$="[<U>1[< 4 T>][<U>] 

[< 4 T>) [<U>] [< 4 T>] [<U>] 

[< 4 T>j [<U>] [< 4 T>] [<U>] 

[< 4 T>1 " 

15 W$ = " { 39 SPAZI}" 

16 D = 30000:H = 20C:V=1 40 

20 PRINT"{CLR}VUOI LE ISTRUZIONI 
(S OfSPAZI}N)"; 

30 INPUTQ$ 

40 IFQ$="S"THEN1400 
50 IFQ$="N"THEN1650 
55 GOTO20 

59 REM DEFINISCE IL JUMBO JET 

60 A$(l)«=" f 23 SPAZI}N{<T>}P" 

70 A$ (2) = " { 22 SPAZI}NXN" 

80 A$(3)="{ 3 SPAZI} [<(3>!U 

{ 2 *}{ 2 F}{ 2 R}[< 10 @>]N 
{ 2 SPAZI}N[<@>] u 

90 A$(4)=" { 2 SPAZI} N[< 6 £>] 

(< 10 £>) U[<0>](<P>)[<T>]N 

II 

91 A$(5)="{ 2 SPAZI}M[< 4 @>] 

{ 2 SPAZI }U{ 3 Mi 2 F} 

{ 3 R} RF*CDE " 

92 A$(6)="{ 3 SPAZI)[< 3 T>]B 
(<T>)EJ^(RVS) {OFF}>D{RVST 
{OFF}>CDE { 7 SPAZI}" 

93 A$(7)= 15 T’ 6 SPAZI }W{ 5 SPAZI} 

{ 4 W}{ 10 SPAZI}" 

100 E=0:A=0:X1=0:S=0:C1=0 

110 HI=INT((H+l3)/I4) 

111 IFH1>14THENH1=14 

112 L=14-Hl 

120 Di=D:R=5000 

140 PRINT"{CLR}";:C=0 

141 IFL = 0THEN14 3 

142 FORM=1TOL:PRINT:NEXTM 

143 FORN=lT07sPRINTAS(N):NEXTN 

144 PRINT"{HOME}"; 

145 PRINTTAB(29); "[<A>]{ 8 *} 
[<S>]{SIN}":N1 -2 

146 FORI = 1T06:IFI = 5THENNl= 3 

147 FORN=1 TONI 

140 PRINTTAB (29) ; "-_{ 8 DES}- 
{SIN}":NEXTN 

149 IFI = 6THENl 51 

150 PRINTTAB(29);"[<Q>J{ 8 *} 
f <W> 1{SIN}" 

1 51 NEXTI 

152 PRINTTAB(29)[<Z>) { 8 jM 
1<X>]{SIN}" 

153 PRINT"{HOME}" ; 

154 PRINT 

155 PRINTTAB(30);"R.SALITA" 

160 PRINTTAB(32);FNA(E):PRINT 
180 PRINTTAB(31);"ACCEL." 


190 PRINTTAB(30);INT(A+0.5);TAB( 
32);"M/St2"SPRINT 
210 PRINTTAB(30);"VELOC." 


220 PK tNTTAB(30);INT(V+0.5);TAB( 

34) ;"M/S"SPRINT 

225 PRINTTAB(30);"ALTITUD." 

226 PRINTTAB(31);INT(H+0.5);TAB( 

35) ;"M"s PRINT 

230 PRINTTAB(30);"DIST.DA" 

240 PRINTTAB(31);"PISTA " 

250 PRINTTAB(30);INT(D+0.5);TAB( 

36) ;"M":PRINT 

260 PRINTTAB(31);"PI STA" 

270 PRINTTAB(32);"UTILE" 

280 PRINTTAB(30);INT(R+0.5);TAB( 
35);"M":PRINT 
290 D$=LEFT$(BS,1)fC$ 

300 PRINTLEFT$(D$,29) 

305 El= 0 

310 E9 = EsA9 = AsU=V:H9=H:D8=D:D9=D 
1s R9=R 

312 PRINT"RAPPORTO DI SALITA 
{ 21 SPAZI}{ 21 SIN}"; 

314 IFQ9=1THENREADE1,TsPRINTEl:G 
OTO360 

315 IFE1=-999THEN140 
320 INPUTE1 

330 IFABS(El)<=10THEN360 
340 PRINT"R.S. DEVE ESSERE TRA + 
10 6. - 1 0 { 2 SU } " 

350 GOTO312 

360 PRINT"{SU}";TAB(26);"GAS= 

{ 6 SPAZI}{ 6 SIN}"; 

365 IF09=1THENPRINTT:GOTO405 
370 INPUTT 

380 IFABS(T)<=100 THEN405 
390 PRINT"IL GAS DEVE ESSERE TRA 
+ 100 S. -1 00 { 3 SPAZI } {SU} " 
400 GOTO360 
405 PRINTW?;"{HOME}"; 

410 E=E+E1 

420 IFE>10THENE=10 

430 IFH=0THEN480 

440 IFT<0THENC = 1 

460 A=A+(T-50)/30-E/3 

470 GOTO500 

430 1FT< 0THEN495 

485 A=A+T/100 

490 GOTO500 

495 A=A+T/20 

500 IFA>5THENA=5 

510 V=V+A*10 

520 I FV> 200TIIENC = 1 

540 IFH = 0THEN560 

550 IFV<80THENC=1 

560 H=INT(H+E*V/20+.5) 

570 IFH<0THENC=1 

571 IFV>0THEN580 

572 Di=Dl+U*U/2/A 

573 V=0 

574 S=1 

575 GOTO620 

580 Di =Dl-10*U-50*A 
590 D=Dl 

600 IFD1>0THEN660 
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610 D=0 
620 R=5000+Dl 
630 I FR< 0THENC = 1 
660 GOTO670 
660 IFH<1THENC=1 

670 PRINT"{HOME}" 

671 PRINT: PRINTTAB (32) ; '• 

{ 6 SPAZl}{ 6 SIN ) ” ;FNA(E) 
680 PRINT" { 2 GIU'}";TAB(30);" 

{ 2 SPAZI}{ 2 SIN}";INT(A+0. 
5) 

690 PRINT"{ 2 GIU'}";TAB(30);" 

{ 4 SPAZI}{ 4 SIN}";INT(V+0. 

5) 

700 PRINT"{ 2 GIU'}";TAB(31 ) 

{ 4 SPAZI}} 4 SIN}";H 
710 PRINT"( 3 GIU'}";TAB(30) 

{ 6 SPAZI}} 6 SIN}";INT(D+0. 
5) 

720 PRINT"{ 3 GIU'}";TAB(30) 

{ 5 SPAZI}} 5 SIN}"; INT(R+ 0. 
5) ; 

725 IFC=1THEN1 21 0 
730 H2=INT((H-H 3)/l4) 

735 IFH2>14THENH2=14 
740 I=H2-Hl 

7 50 IF1 = 0THEN 94 0 
760 K=SGN(I) 

775 Hi=H2 
780 ABS(I) 

790 X=INT(V/2/J) 

810 FORKl = 1 TOJ 

815 PRINT"{HOME}"; 

816 PRINT"{SU}"; 

817 L = L- K 

820 IFL=0THEN850 

8 30 FORi v l = 1 TOL: PRINT: NEXTM 

840 IFI<0THENPRINT"{SU}";LEFT$(W 
5,28) 

850 FORN=1T07:PRINTAS(N):NEXTN 
860 IFI>0THENPRINTLEFT$(W$,28) ;" 
{SU}" 

870 B=15-L 

890 IFB=OTHEN910 

900 FORM=1TOB:PRINT:NEXTM 

910 GOSUB1000 

920 NEXTK1 

930 GOTO!090 

940 X=INT{V/2) 

950 PRINT"{ 2 GIU'}" 

960 GOSUBl000 

970 GOTO1090 

1000 FORM=1TOX 

1010 Xl=Xl+l 

1 020 N = X1 -INT(X1/5)*561 

1030 D$=LEFT$(B$,N)+CS 

1040 PRINT"{SU}";LEFT$(D$,29) 

1050 NEXTM 
1060 RETURN 
1090 IFS01THKN31 0 
1100 PRINT”{HOME}{ 2 SPAZI}**ATT 
ERRAGGIO PERFETTO**":PRINT 


1105 PRINT"{ 2 SPAZI}****CONGRAT 
ULAZIONI* * * *" : PRINT 
1110 IFC1=0THEHPRINT"{ 2 SPAZI} 

* *LA BRITISH AIRWAYS TI**" 
1115 IFC1=0THENPRINT"{ 2 SPAZI} 

* * * * STA ASPETTANDO * * * *":PRI 
NT 

1120 IFC1 = 1 TIIENPRINT" { 2 SPAZI} 
«‘♦SCHIANTATO UNA VOLTA***" 
:PRINT:PRINT 

1130 1 FCl > 1 TIIENPRI NT" { 2 SPAZI} 

* * SC111ANTATO";C1 ;"VOLTE * *" : 
PRINT:PRINT 

1135 IFA>=-2THENPRINT 
1140 IFA<-2THENPRINT"{ 2 SPAZI} 
*";INT(I0 * ABS(A)) ;"PERSONE 
STAVANO MALE**" 

1 1 50 PP.INT" { 1 3 GIU ' }" 

1200 G0T09999 

1210 PRINT"{HOME}";:C1=C1+1 

1220 FORI=1T03:PRINTLEFTS(W$,29) 

:NEXTI 

1221 PRINT"{ 9 SPAZI}{RVS} {OFF} 

{RVS} {OFF} {RVS}£ (<*>] 

{OFF} {RVS} {OFF} IrVS} 
{OFF}{ 9 SPAZI}" 

1222 PR1NT"{ 9 SPAZI}{<*>)I<I>} 

£ {RVS} {OFF} {RVS} {OFF} 
IRVS} {OFF} {RVS} {OFF) 

{ 9 SPAZI}" 

1223 PRINT"{ 10 SPAZI}{RVS} 

{OFF}{ 2 SPAZI){RVS} {OFF} 
{RVS} {OFF} {RVS} {OFF} 
{RVS} {OFF}{ 9 SPAZI}" 

1224 PRINT"{ 10 SPAZI}{RVS} 

{OFF){ 2 SPAZI} (<*>} {RVS} 
{OFF)£ {RVS}{ 3 SPAZI){OFF} 
{ 9 SPAZI}" 

1225 PRINTLEFTS(WS,29) 

1226 PRINT"{ 7 SPAZI}{RVS} {OFF} 

{RVS} {OFF} {RVS}£ [<*>) 
{OFF} {RVS} {OFF} TrVS} 
{OFF} {RVS}{ 3 SPAZI}{OFF} 

{ 7 SPAZI}" 

1227 PRINT"{ 7 SPAZI}{RVS} {OFF} 
{<I>}{RVS} {OFF} {RVS} 

{OFF}[<I>]{RVS} {OFF} {RVS} 

{OFF} {RVS} {OFF} {RVS} 
{OFF}{<!>]{ 8 SPAZI}" 

1228 PRINT"{ 7 SPAZ1}{RVS} 1<I>] 

{OFF} {RVS} I<I>] {OFF} 

{RVS} {OFF} {RVS} {OFF} 

(RVS) [<I>j{OFF}{ 8 SPAZI} 

11 

1229 PRINT"{ 7 SPAZl}{RVS} {OFF} 

{RVS} {OFF} {RVS} {OFF} 

{RVS) {OFF} l <*>]{RVS} 
{OFF}£ {RVS}{ 3 SPAZI}{OFF} 
{ 7 SPAZI}" 

1230 PRINTLEFTS(WS,29) 

1231 PRINT" {RVS}£ [ < *>) {OFF} 
{RVS}{ 2 SPAZI}(<*>){OFF} 
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{RVS}£ [<*>] (OFF} {RV:’.}i: 

{ 2 SPAZI}{OFF} {RVS} {OFF} 
{RVS} {OFF} {RVS} 

{ 3 SPAZI}{OFF} {RVS} 

{ 2 SPAZI][<*>]{OFF}" 

1232 PRINT" {RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF}[<I>] 

£ {RVS} {OFF}[<I>]{RVS} 
TOFF} [<*>}[<!>]{ 2 SPAZI} 
{RVS} [OFF}[<I>]{RVS} {OFF} 
{RVS} {OFF}[ < I > ] 

{ 2 SPAZI}{RVS} {OFF} {RVS} 
{OFF}" 

1233 PRINT" {RVS} {OFF} 

{ 3 SPAZI}{RVS} (<I>] [<*>) 

{OFF} {RVS} [<I>] {OFF} 

{ 2 SPAZI}{RVS}[<I>][<*>] 
{OFF} {RVS} [<I>1 {OFF} 
{RVS} [<I>]{OFF}{ 2 SPAZI} 
{RVS} {OFF} {RVS} {OFF}" 

1234 PRINT" l<*>]{RVS} {OFF}£ 

{RVS} {OFF} {RVS} {OFFT 
{RVS} {OFF} {RVS} {OFF} 

{RVS}{ 2 SPAZI}{OFF}£ {RVS} 
{OFF} {RVS} {OFF} {RVS} 

{ 3 SPAZI}{OFF} {RVS} 

{ 2 SPAZI}{OFFjE" 

1240 F0RI=1T04:PRINTLEFT?(W$,29) 
:NEXTI 

1241 PRINT 

1 3 80 PRINTWS ; " {SU} " 

1281 PRINT"INDIETRO DI 10 SECOND 
I (S 0 N) 

1290 INPUTQS 
1300 IFQ$="S"THEN1330 
1310 IFQ$<>"N"THENl280 
1315 PRINT"( 2 SU } " 

1320 G0T09999 

1330 E=E9:A=A9:V=U:H=H9:D=D8:D1= 
D9: R=R9 
1 340 GOTO 14 0 

1399 REM ISTRUZIONI 

1400 PRINT"{CLR}SEI IL PILOTA DI 

UN JUMBO JET." 

1420 PRINT"DEVI ATTERRARE REGOLA 
NDO IL RAPPORTO" 

1 430 PRINT"DI SALITA DELI.' AEREO 
E" 

1440 PRINT"IL GAS (IN{SPAZI)KILO 
-NEWTONS) OGNI{SPAZI}10 SEC 

II 

• 

1445 PRINT"{ 2 GIU'}" 

1450 PRINT"IL RAPPORTO DI SALITA 
DEVE ESSERE{SPAZI}TRA" 

1460 PRINT"+10 & -10.IL MAX.RAPP 


. DI SALITA E'+10." 

1465 PRINT"CAMBIAMENTO DI QUOTA= 
R.S.*VELOCITA'/20." 

1468 PRINT"{ 2 GIU'}" 

1470 PRINT"IL GAS DEVE ESSERE TR 
A { SPAZI } + 1 00 6, -1 00," 


1475 PRINT"+50 MANTERRÀ' COST.L' 
ACCELERAZIONE" 

1480 PRINT"GAS NEGAAT1VO E'PER F 
RENARE SULLA PISTA" 

1490 PRINT"LA MAX.ACCELERAZIONE 
E'{SPAZI}5 M/ST2." 

1 495 PRINT"{ 2 GIU ' }PREMI UN TAS 
TO" 

1 496 GETZ?: IFZ$ = ""THENi 4 96 

1498 PRINT"{CLR}" 

1500 PRINT"TI SCHIANTERAI SE:" 

1510 PRINT" 1) VELOCITA'>200 M/S 
11 
t 

1 520 PRINT" 2) VELOCITA'<80 M/S 
MENTRE SEI IN VOLO" 

1530 PRINT" 3) ATTERRI PRIMA DEL 
L' INIZIO PISTA" 

1540 PRINT" 4) RAGGIUNGI QUOTE N 
EGATIVE" 

1550 PRINT" 5) OLTREPASSI PISTA 
A QUALSIASI QUOTA" 

1555 PRINT" 6) USI GAS NEGATIVO 
IN VOLO." 

1558 PRINT"{ 2 GIU'}" 

1560 PRINT"SE TI SCHIANTI HA LA 
POSSIBILITÀ' DI" 

1570 PKINT"TORNARE INDIETRO DI 1 
0 SECONDI!!" 

1575 PRINT:PRINT: 

1580 PRINT"IN QUALUNQUE MOMENTO 
DESIDERI" 

1590 PRINT"BATTI{SPAZI}{RVS}-999 
{OFF} PER CAMBIARE IL R.S." 

1598 PRINT:PRINT 
1600 PRINT"ATTERRAGGIO O PILOTA 
AUTOM.(1 O 2) 

1610 INPUTQS 
1620 Q9=0 

1630 IFQS="2"THENQ9=1:GOTO60 
1640 PRINT:PRINT 

1650 PRINT"CONDIZIONI STANDARD ( 
S O N) 

1660 INPUTQ3 
1670 IFQ$ = "S"T'HEN60 
1680 IFU$<>"N"THKN1650 
1690 V=100»100*RND(2) 

1700 H=150 + 50*RND(3) 

1710 D = 20000+l00 00 *RND ( 4) 

1720 GOTO60 

1 800 DATA0,1 00,0,50,0,50,0,0,-l , 
40 

1810 DATA-1,30,0,30,0,30,0,30,0, 
30 

1820 DATA0,30,0,30,0,30,1,10,0,3 
0 

1830 DATA0,30,0,30,-.2,40,1.2,-1 

0 , 0,20 

1 84 0 DATA0, 20,0,20,0,30,0,20,0,2 
0 

9999 END 
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QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 
















È IN EDICOLA 


JACKSON SOFT 
SERIE ORO 


La softrivista con i giochi 
esclusivi per Commodore 64 
e Spectrum 48K 
importati dall'Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, 
al già fatto, al... già registrato. 







Ogni mese in edicola 

• la softrivista con: 

6 pagine di commento 
al supergame presentato; 

4 pagine di rubriche; 

22 pagine di listati scelti tra 
il meglio di quanto pubblicato 
in fatto di grafica, giochi, utility 

• una cassetta originale con 
il SUPERGAME del mese 
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Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 
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castello del mago 


C64 


Joystick opzionale 


Sei un coraggioso cavaliere e vuoi salvare una 
bellissima principessa, che un mago cattivo tie¬ 
ne prigioniera nel suo castello. Ma la strada 
per raggiungere il castello è disseminata da 
grossi macigni lanciati dal mago, che inoltre ha 
mandato i suoi due servitori a darti la caccia: 
sono entrambi fortissimi (infatti distruggono i 
macigni che trovano sul loro cammino) e, se 
ci tieni alla pelle, devi assolutamente evitare 
che ti raggiungano. Come se ciò non bastasse, 
hai un tempo limitato per compiere la tua 
missione! 


1 2U GuSUtil ^ 1 0 
1 ju GOSUii 1 4 00 
ì j j : 

Ì4U GOBU3z.u0 
1 jO GOBUBouO 
loU GOBUBJ^O 
lo2 G03JB2UU 
ì 70 GGeUB1OOU 

1 60 GOTO140 
190 : 

<.0 0 K=PEEh(l 97) :Z=2bb-PEEK(bb321 

) 

I 0 IFk— 3òOKK = 4 1 OiiK = o2CRK- 1 0ORZ- 
1 OkZ- 20k 2 = 40KZ = òTHEN2 bO 
iku FORD E= ITO 1 b : NEXTUE 
24u GOTO7 40 

33 O lFK=3tìORZ=4THENP=P-1 
ZÒO 1FK = 41Ok2 = dTHEN P-P+1 
270 lFK-b20RZ= 1 THENP=P-40 
260 iFK=I0ORZ=2THENP=P+4U 

2 90 iFPv 1 0o4OKP>202 JTHENP^OP 

2 92 1F l P - D ) / 4 U = IN T ( (P-DJ/4GJTHEN 

P=OP 

3u0 iF P =0 PTHEN 74 0 
30 b : 

3I0 iFPEEK 1P) < > 34THEN4 b 0 
312 POKEOP,32 
320 POKES+1,12 

3 J 0 POKES+ 4,129 

340 FORDE=iTObU:NEXTUE 

3 b 0 PO r\ E3 + 4,0 

3/0 FORO =bOTOlOSTEP-1 

3 o 0 POkEP,3 3 
390 POKEB+1 , J 
‘iUO POKEB+4,33 

4 10 FokDE= 1 TO1 o : NEXTUE 
43 0 POKER,34 


Il cavaliere parte dall'angolo inferiore sinistro 
del video, mentre il castello si trova in alto a 
destra; se riesci a.raggiungerlo senza venire a 
contatto coi macigni o coi servitori del mago, 
dovrai affrontare un nuovo schermo con un 
maggior numero di ostacoli da superare. Ogni 
missine completata ti fa guadagnare un nume¬ 
ro di punti dipendente dal tempo impiegato e 
dalla difficoltà del percorso. Il movimento del 
cavaliere è comandato tramite la tastiera (0 
e P per sinistra e destra, Q e A per su e giù) 
oppure per mezio del joystick in porta I. 


440 POKEb+4,0 
4 30 FOROE= I TO 1 0 : NEXTUE 
400 NEXTJ 
470 GOTO 1 9uU 

400 IFPEEKlP)< > 3 7THEN3Ò0 

402 POKEOP,32 

490 FuRJ-1TObO 

bUU POKES+I,00 

blU POKES+ 4,0 3 

b20 POKisP , 33 

b 30 P0KES+4,U 

b4 0 Foì\l»E= 1 TO ì 0 : NEXTUE 

boO pOKEP,3 7 

b/O NEXTJ 

b / 2 GOTO190U 

b/5 : 

boO IFPEEK(P)<>3bANUPEEK(PJ<>3bT 
HEN7UU 

bob POKEOP,32 
3 9 u FukJ =■lTu4 
b U 0 REaDN,DU 
ol0 POKEb+1,N 
b 2 0 POKESi- 4 , 3 3 

b 3 0 FOkUE= 1 TODU * ti : NEXTUE 
b 30 POKES+4,0 
bbO NEXTJ 

obb z>C = bC+TL*BN : BN=BN+2U 
u/O PkiNT"iaOMEi"TAB (ó )BC 
bbO PkiNT"! 10 GIU')"TAb(12)" CE 
L'HAI FATTA " 

FuRUE=1TO2000:NEXTUE 
GOTO19 bO 
PuKES+I,3b 
POKES+4,33 
POKEOP,32 
POKEP, 33 


òo 3 
o9u 
700 
702 
7 Od 
7 I 0 
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720 POKEC+P-D,4 

730 OP=F 

732 POKES+4,0 

790 RETURN 

bOO F=F+ ì 

aì.ù IFF=JYH^NF=1 

02l; POKEM(F) ,32 

bOO M(F) =M(F) -SGW (INT ( (M(F) -D)/'4 
0 ) -IOTItP-L))/4U))*40 
Ò40 H(f) =PUF) - SGW l ( H ( F /-1NT( (M tF 
) -D)/4U) *40) - (P-INT( (P-D) /'40 
)*40)) 

ObO 1FPEEK(M(F))=32CKPEEK(M(F))= 
J4TiiEN obO 

bOO 1FPEEK (Mifj J >- 35ANDPEEK (M(F) 

) <=57THEN90U 

b/0 I FPEEK(M(F ) ) =53THEN490 

boO PUKES+1,55 

6b2 POKES+4,6 3 

660 PUKEM.(F),37 

69u POKEC+M(F) -D, 2 

69-: PUKE5+*,0 

9UU RETURN 

910 : 

92 U KK= INT (RNL) (0)* 959)+40 
9^ 1FPEEK !kK+D; =3 jTHeN3zO 
9 26 iFP eEK!RK+D)= 3bORPEEK(kK+D) = 
JbTHEN9 5 U 
9 30 POKERK+D,34 
9*0 PCKERK+C,5 
9 50 RETURN 
990 : 

ÌUOU TL=TL- ! 

1 Ol U iFTL> = UTliEN 1 1 4U 

10*20 FORJ=5ÙTOl 5STEP-1 

1050 POKES+1, J 

1040 POKES+*,63 

lo50 FCkUE=1TObO:NEXTDE 

1 0 70 POKES+4,U 

1 030 FORDE*1TOlU:NEXTDE 

1100 NKXTJ 

1110 PRINT"{HOME)" 

1 1 20 PRINT" t b GIU ' / "TAL (12) " TE 
MPOt 2 SPAZIjSCADUTO " 

1 130 GOTU19u 0 

1140 PRINT"1HOMEj"; 

llbO PRIWTTAB(5b ) STk$ (TL) " " 

llbO RETURN 

1 200 : 

1210 PRINT"iCLKj" 

1 21 b DIMM(2j 
1 220 POKEb5zb! , 2 
1230 POKEb52bU,2 
1240 PCKE0 4 b,7 

1 250 PRINT"! 5 GIU 1 J "TAL ( 9 ) " 

IkVS; IL CASTELLO DEL MAGO 

M 

l 2Go PRINT"{ o GIU*j"TAtì(6;"O/P 
i ^ SPAZI iPER b INISTRA/1)EST 
RA" 

12 70 PRINT"{GIU 1 1 "TAB ! 12 ) "C/A 
1 2 SPAZI]PER SU/GIU'" 


I27 b PRINT" [ 3 GIU' j"TAU(7)"OPPU 
kL JOYSTICK IN PORTA i" 

I2ò0 FORDE=1 TOjUUu:NLXVDE 
1300 RETURN 
1 390 : 

1*00 POKEbb,0 
1*10 POKEbo,bò 
1*20 PkINTCiiRS (1 42) 

143U PoKEbo 55 4,PEEK!bb334)AND^b4 

14*0 POKLl , PEEK ( ! ) ANL)2b 1 
1 * bO FO k J = 0 TO b 1 1 
1 * bO POKEJ+14530,PLKK(J+53246) 
1470 NEXT 

l*bO POKE1,PEEK(1)OR4 
1490 POKEbb334,PEEK( bb334)ORI 
1 bOO POR£53272, (PEEK{53 2 72)AND24 
U ) + 1 4 

1 b10 FORO = 1 * b 0 0TO1*639 
1320 KEaDD:POKEJ,D 
1 o3 0 NEXT 
lb*0 L)- 1 04 
1bbO C=55290 
ìbbb OC = u:BN = 10 
1 boO POKe532ò 1,0 
1570 POKEb^2bu,lb 
1 bbO POKE04b,1 
1590 PKiNT"iCLRj"; 
luOO PRINT"i 2 SPÀZI}PUNTI :"SC;T 
Ab(29)"TEMPO: 99" 

IblO FuRJ-1TOBN 

lol2 kK=INT!RNU( 1 ) *9b9)+40 - 

1 bzU POKERK+D, 34 

1 022 POkERK+C, b 

IojU NEXT 

1 o4 0 POKEÌ1Ul,3b 

1 ubU • POKE555 /3,7 

1 obO PO KE 1 1 0.4,3 ò 

lo70 POKE55374,/ 

lobo PURE 19* b,33 

lobo POKEbb217,4 

17 0 0 S = b 4 2 7 2 

1710 P=Ì94b:OP=P 

1720 FOkJ=STOS+23 

1/30 POKEJ,0 

1 /4 0 NEaT 

1 750 POKES+2*, 1 b 


ì7o0 POKLS+ o,240 
l 770 irli! ) =1 1 3b 

1 / C O M ( 2 ) = 1 2 0 2 

1762 TL-99 
1/50 RETURN 
1 7 3 5 : 

1 bUO UATA2 4, 2 4,00,9 0, 1 bb,30,3o,l 
06 

Ibi 0 DATAOU, l«b, !27,2bb,2bb,lzo, 
12 o , ou 

1 b^O DATAI 70,2 5 b , 2 3 b ,162,255,2bb 
,102,2b4 

1òjO DaTA l/0,254,234,216,254,254 
, I U 0,1 2 u 


29 



GRUPPO 




ì U4U DATA^4,oO, 126,235,255,193,2 
31, 23l 

lobo DATA jj, 30,4 3,30,36,50,50,90 
1 a 9 0 : 

1900 PRINT"(HOME)l 11 GIU 1 )"TAB( 

I 4) 11 PINE GIOCO " 

1910 t'ORJ = 1 TO12 : PRINT : NEXT 
1912 PORRI9ò,0 

1920 PRINT"GIOCHI ANCORA (S/N)? 

II . 

1 GET^$: 1F^$<> , ‘S"AWDQ$<>"N"TH 

ENlbbu 


lPt!tf = ,, N ,,, i , HEN 1 97 0 
ì ì> 4 0 ^C = U : iiN= I 0 
1 3 jU GOoUb1 

Ì9b2 RESTOkE 
IVj* FOkJ = 1 TO40 
IbOb KEADGA 
1 Sj 8 NEXT 
Ibbù GOTO 1^0 

1*70 P0KK4b 11)2,0 
IbòU SYS4bib2 


Per ricevere gli arretrati di 





Yj\S compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome _ 

Cognome 

Indirizzo 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 

- Ann ° -- 

a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contanti allegati 
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A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 









